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The Radio Shack Tape Payroll System is designed for smaller 
businesses with a high growth potential. Using a minimum 
16K Level II TRS-80® Micro Computer, the program will 
process payroll for 15 employees. As the company grows, 
the system can be expanded to match the needs of the 
company. The Tape Payroll System will process checks for 
75 employees with 16K additional memory. A 48K Level II 
TRS-80 will accommodate 135 employees. 
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Features Of The Tape Payroll System: 

• Payroll Checks are Automatically Calculated and Printed 

• Automatic FICA and Federal Taxes Calculation 

• Provisions for State and City Tax 

• Provisions for Voluntary Deductions 

• Provisions for Disability Deductions 

• Check Register 

• Annual Reports 

• Professional Appearance 

• Easy Error Correction 
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COMPUTER APPLICATIONS 



A Division of Tandy Corporation 707 ONE TANDY CENTER, FORT WORTH, TEXAS 76102 

TAPE PAYROLL ADDENDUM 

FOR DISK USERS: 

The Tape Payroll package will operate on Disk and automatically use Disk 
storage rather than tape. 

For the "Payroll" Menu program, follow these steps exactly: 

1. Turn on everything except the TRS-80 keyboard. 

2. Put a TRSDOS Disk in Drive and turn on the keyboard. 



3. When "TRSDOS READY" appears, type BASIC2 and press jENTEPj. 
Press ENTER for "MEMORY SIZE". 

4. Insert the "Payroll" Menu cassette in the recorder and press 
the "PLAY" button. 



5. Tvpe fciijA^i and press (ENTER. 



6 When "READY" appears, remove the Master cassette, insert a 
new, blank tape. Press the "PLAY" and "RECORD" buttons. 



7. TypeQHHlQand press JENTERJ . 



8. When "READY" appears, press the Reset button on the back of 
the keyboard. 

Use the tape you just recorded for the "Payroll" tape and refer to the 
instructions on page 28 of the manual for Converting to Disk. 

To convert the remaining tape programs to Disk, follow the instructions 
on page 28 of the manual for each of the following programs: 

NAME PROGRAM 

"COMAINT" Company Maintenance 

"PRMAINT" Employee Payroll Maintenance 

"PRPROC" Payroll Processing 

"PRTOT" Payroll Totals 
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FOR COMPUTERS WITH THE LOWER CASE MODIFICATION: 

The Tape Payroll program is not designed for use on computers wi th _ the _ "lower 
case modification. If you have a computer with a lower case modification, 
the following modifications must be made for the program to operate properly. 

Follow these steps exactly for each of the four programs: 



Company Maintenance 
Payroll Processing 



Employee Payroll Maintenance 
Payroll Totals 



1. Load the program by typing |uy 



2. Type the following information EXACTLY as shown: 



6 CLEAR(36*X+256):ME%=(FRE(X$)-256)/36: X%=ME%+1 IentER; 



8EN1ER1 

3. Rewind the tape and advance past the plastic leader. 

4. Press the "PLAY" and "RECORD" buttons on the recorder. 



5. Type CS/»VE'A" and press IENTER 
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Introduction 

The Radio Shack Tape Payroll System will process payrolls for a small business. 
The available memory size of your system will determine how many employees 
you can process. 

System Number Of Employees 

16K Level II Tape 15 

32K Level II Tape 75 

48K Level II Tape 135 

The Tape Payroll System consists of four tapes: 

TAPE1 

Side One — Company Data Maintenance (COMAINT) 
Side Two — Employee Payroll Maintenance (PRMAINT) 

TAPE 2 

Side One - Payroll Processing (PRPOC) 
Side Two - Payroll Totals (PRTOT) 

TAPE 3 

Blank Data Tape — All of the information (to run your payroll) will be 
stored on the Data Tape. 

TAPE 4 

This is the "Menu" Program tape. It will only be used when you wish to 
convert these programs to Disk. (This is explained in detail in the Disk Users 
section on page 27.) 

Features Of The Tape Payroll System 

Calculates and prints checks (if you have a printer). 

Calculates all Federal Taxes and FICA. 

Calculates most State and City Taxes. 

Provisions for voluntary deductions, such as Savings, Christmas Clubs, Insurance, etc. 

Provisions for Disability deductions. 

Check Register. 

Easy error correction and recovery. 

Annual summaries. 

All reports printed out, or displayed on the screen. 

Note: Checks can only be printed, they cannot be displayed on the screen. 



•I 



SetUp 



Setting Up The System 

Before you use the Tape Payroll System, you must provide some information 
about your particular company and its employees. This is called the "Set Up". 
This "Set Up" procedure is done only once. It is not a difficult task, but it is time 
consuming. Just take your time and we'll lead you through step by step. 



Information You Need To Supply 

You will need your employee records, company and employee FICA percentages. 
Annual Tax Tables for 1979 are provided with this manual. If your state or 
city has an income tax, you will need these Tax Tables. 

Once you "set up" the system, maintenance is minimal. You can add (or delete) 
employees easily, make wage changes quickly, and print any reports that may be 
needed. You will be able to prepare payroll checks in a fraction of the time it 
would take to prepare them by hand. 



Starting The "Set Up" 

Get the most comfortable chair in the building and when you're ready, let's 
start the "Set Up" procedure. 

Note: If you have a large number of employees, it goes a lot faster if two 

people work on the set up — one person to call out the information, and a second 

person to type the information into the computer. 



Loading Instructions 

Here are the loading instructions that apply to the Tape Payroll System. All the 
tapes for the Payroll system will load the same way : 

1. Power up the TRS-80. 

2. Put the COMAINT tape in the cassette recorder and press "REWIND". 

3. Set the volume between 4 and 6. 



4. Press the "PLAY" button. 

The screen will show : 

MEMORY SIZE?„ 
READY>_ 



You Type: 



Press lENTERI 

©[□©IS© and press [ENTERl 



Set Up (continued) 



This will start the tape. An asterisk will appear at the top of the screen. A second 
asterisk will blink, indicating that the program is loading. When the program is 



loaded, READY>„ will again appear on the screen. Type [R][u][N] and press [ElMTERl 

Note: If the tape did not load properly or an error occurred, rewind the tape and 
start over. If the program didn't load properly, you'll have to adjust the volume of 
the recorder. 

The screen will show : 

DO YOU WISH TO START A NEW PAYROLL (YES/NO) 

Type HUH] . 

The screen will show: 




This is the Main Menu for Company Maintenance, (COMAINT). Every program 
tape has a menu with all the available functions listed. Since we are just starting, 
let's begin with Tax Tables. Press [T] . 



Set Up (continued) 



The screen will show: 




This is the Tax Menu. Press [S] for Single Employees Table. You will be asked if 
this is a new table. Press [Y] for Yes. 

The screen will show: 




Set Up (continued) 



Use the Annual Tax Table for single employees on page 33. 



1 . Type in the Upper Limit for line 1 and press lENTERj . 



2. Type in the Fixed Amount (in line 1, this is zero, so press lENTE R| for a zero 
in this category). 

3. Type Percent of Excess. This is the amount of tax withheld over the lower 
bracket limit, then press lENTER) . 

4. The Lower Limit is automatically set beginning with line 2. 

5. Follow this procedure for each line. (On line 8, the Upper Limit is 
automatically set at $999,999. You just add the Fixed Amount and Percent 
of Excess). 

You will be asked if all information is correct. Press if Yes. This will return you 
to the Tax Menu. 

This is how a typical finished single Tax Table should appear: 




Set Up (continued) 



Making Corrections 

If you accidentally type in the wrong information : 

1. You will be asked if all the information is correct after you enter line 8, 

2. Press [N] for No. 

3. Type the line number with the error. 



4. You can now type the correct information, then press |E'NTER| . 

5. The lower limit for the following line will automatically adjust to new upper 
limit. 

6. Press H to return to Tax Menu. 

Married Table 

1. Press (Mj for Married Employees. 

2. You will see the same format as the Single Employees Table. 

3. Type in the information (using the Annual Tax Chart) following the same 
procedure for the Single Employees Table. 

4. Make any needed corrections. 

5. Press [R] to return to the Company Maintenance Main Menu. 



Set Up (continued) 
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Next, you will need to supply your Payroll Information, so Press [0 
The screen will show : 




Entering Your Company Name, etc. 

1. Type your company name in the space at the bottom of the screen. You can 
type as many as 20 characters for the company name (spaces count as 
characters). Press [ENTER] when you've finished. 



2. Type the Company FICA percentage and press lENTERl 



3. Type the Employee FICA percentage and press [ENTER 1 . 

4. Type the maximum FICA salary limit. 

5. Type the Annual Exemption (dollars per exemption). 

6. State withholding type (if applicable). 
G = Percentage of Gross 

F = Percentage of Federal Withholding 

M = Manual Entry. (If your state tax type is not covered in the choices 
above, you can enter it manually during Payroll Processing.) 

N = None 



Set Up (continued) 



7. State Withholding Rate, if your state has a percentage of federal tax or gross 
income. 

8. City Withholding (if applicable) 

G = Percentage of Gross. If you press (5] , there will be a line (in the lower 
righthand corner), where you can type the required percentage. 

M = Manual 

N = None 

9. Disability 

F = Fixed Amount. Type the amount in the space provided (in the righthand 
corner). This is a fixed amount per pay period. It will be deducted from 
all employees. 

M = Manual 

N = None 

If all information is correct, Press (Y) to return to the Main Menu. 

SavingTheData 

Press H] for Save and End. The screen will show: 

LOAD DATA TAPE AND REWIND 

SETTO RECORD 

PRESS <ENTER> WHEN READY 



Set Up (continued) 
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Follow these steps exactly: 

1. Take the Company Maintenance tape out of the recorder. 

2. Label the Data Tape, put it in the recorder and rewind. If your tape has a 
leader, make sure the tape is advanced past the leader. 

3. Press the "PLAY" and "RECORD" buttons on the recorder. 



4. Press I ENTER | when you're ready to "Save" the "Set Up" data. 

Note: It is a good idea to mark the side of the Data Tape you just recorded. When 
you need this data later, you will know which side of the tape to use. 

All of the information (that you just entered on the COMAINT program) is being 
recorded on the Data Tape. When all of the data is recorded, you will be asked 
if you want to make another copy. Press for Yes. Take out the Data Tape and 
insert a new blank tape or turn the tape over and use the reverse side. Record it 
as you did before. This is a Safety or Backup copy. 



Payroll Maintenance 



Payroll Maintenance 

After you've finished, press [N] for No More Copies. READY>_ will appear on the 
screen. 

1. Take out the Data Tape, put the Payroll Maintenance, PRMAINT 
tape in the recorder and rewind the tape. 

2. Press the "PLAY" button on the recorder. 



3. Type EEEHaKB and press lEIMTERl . 

4. When the tape is loaded, R EADY>_ will appear again. Type OP HI and P ress 

[ENTER I . 

The screen will show: 

LOAD DATA TAPE AND REWIND 

SET TO PLAY 

PRESS <ENTER> WHEN READY 

1. Take out the Payroll Maintenance tape, load the Data Tape, and rewind. 

2. Press the "PLAY" button on the recorder. 



3. Press |ENTER[ . 

The screen will show: 

READING PAYROLL DATA 
Note: Asterisks will not blink when loading in a Data tape. 
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When the computer has read in the data, you will see the Menu. You have two 
choices on this Menu; (E)dit Employee File and (S)ave Data & End. Press E . 
The screen will show: 




You will notice a list of commands at the bottom of the screen: 

(S)earch — You type in an employee number. The computer will search for 
that employee, and display the record on the screen. 

(E)dit — Used to correct (or revise) an employee record. 

(N)ext — This will advance you to the next employee. 

(A)dd — This lets you add new employees. 

(P)revious — This will take you back to the previous employee. 

(D)elete — This lets you erase a terminated employee's records. 

Since you are just starting your Tape Payroll System, press [A] for Add. 



Payroll Maintenance (continued) 



1. Type the first employee's number and press lENTERl . (Numbers can range 
from 1 to 9999.) 

2. Type the employee's name and press |ENTER| . 

3. Type in all the required information for lines 1-7. (Press lENTERl after each 
line except marital status). 

Note: If the employee has an hourly rate, the computer will automatically skip 
Annual Salary. If the employee is salaried, you can skip Hourly Rate by pressing 
[enterI • 

Lines 8 thru 15 are for Year-to-Date (YTD) totals. 

Note: If you make a mistake, don't worry about it for now. Continue to fill out 
the employee record. After you type line 15, you will be asked if everything 
is correct. Press M ■ Now you can correct the line. 

Once the information for your first employee is correct, press [A] to Add 
employees again. Type in the next employee's record. Press (A] to add more 
employees until you enter all of your employees or you reach the maximum 
allowed by the program. 

Saving The Data 

When all the employee records have been completed, press M to return to the 
Menu. Press CD for Save. A reminder message will appear on the screen. 

1. You already have the Data Tape in the recorder, so press rewind. 

2. Press the "PLAY" and "RECORD" keys. 



3. Press | ENTER | when ready. 

4. Make another copy. When finished, remove the Data Tape and keep it in a 
safe place. 

Congratulations, the Tape Payroll System is now "Set Up". If you are ready to 
run a payroll, go on to Payroll Processing (start at step 2). If you're not ready to 
run a payroll, turn off the system, and make sure to store the tapes in a safe 
place. To run your first payroll, you will need the Data Tape and the Payroll 
Processing, PRPROC tape. When you are ready to run your payroll, go to 
"Payroll Processing". 
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Payroll Processing 

1. Power up the TRS-80. 

2. Load the Payroll Processing tape in recorder and rewind. 

3. Set the volume of the recorder between 4 and 6. 

4. Press the "PLAY" button on recorder. 



Screen will show : 

MEMORY SIZE?„ 
READY>_„ 



You type: 
Press lENTERi 



(C]BE]|A]{@ and P ress lENTERi 

When the program has loaded, READY will appear on the screen. Type [R][y][ED 
and press lENTER i . 

1. Take the Payroll Processing tape out of the recorder. 

2. Load the Data Tape and rewind. 

3. Set the recorder to "PLAY". 



4. Press [ENTER I when ready. 

After entering the payroll data, the screen will' show: 
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This is the Payroll Processing Main Menu. You need to enter Employee Calculations, 

so press JO . 

The screen will show: 




Calculating Employee's Pay 



1. Type in the first employee number and press |ENTER| . 

2. Now you can type in the employee's regular hours. If employee is salaried, 



the computer will automatically calculate the pay for this period. Press | ENTER 
3. Pay (for this period) will appear beside the regular hours. 



4. Type in overtime hours (if none, press EIMTER|). Enter overtime rate. Press 



| ElMTERl for time-and-a-half. If your overtime rate is not time-and-a-half, 
then type in the rate and press |EIMTER| . 

5. Type in commissions and other income (if any), then press |EIMTER 

6. Gross Income will appear at the bottom of the screen. 

7. Now you have a choice: Let the Computer calculate the deductions or do it 
Manually. Press © or |M] . 

Note: If you pressed (M) for Manual Entry (in Company Payroll Information) for 
any withholding type, and you now type©, the computer will stop at that line, 
to allow you to enter the information. 



Payroll Processing (continued) 



If you let the computer calculate deductions, it will always stop at Deduct 1. This 
gives you a chance to enter any additional deductions that aren't provided. For 
example: Christmas Club, Stock Plans, Insurance, etc. 

This deduction category can also be used for any employees which qualify for 
Earned Income Credit. If Earned Income Credit is required, enter the Amount for 
Deduction 1 as a negative value. 

Deduct 2 is another general purpose deduction category. After. Deduct 2 is 
entered, you will see total deductions and net pay for that pay period. 

Note: If there is a mistake, press Q\j] to the question "IS EVERYTHING CORRECT". 
You will be asked if you want to (C)ancel, or (R)eenter the information. Cancel is 
used if you do not want to pay the employee at all during this period. For example: 
paying a terminated employee by mistake. Reenter will leave the name and 
number of the employee. You can then Reenter the correct information. 

Once you are sure all the information is correct, press [V] . Type in the next 
employee's number. Follow the same procedure for each employee. 

Checking Calculations 

You can check all calculations once again before printing checks. 

1. Type in the first employee's number. 

2. Press M for Next after every employee until you have examined all of them. 

3. You can now return to the Main Menu by pressing 11 . 

Now you can print the checks. (If you do not have a printer, you can skip this 
section and go to Check Register on page 19.) 
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Printing The Checks 

Press [P] at the Main Menu for Print Payroll Checks. 
The screen will show: 

LOAD CHECKS IN PRINTER 

Loading Checks 

1. Line up the left perforation of check on column 1 of the plastic guide. 

2. Set the top perforation of check at the bottom of the plastic guide. See 
Figure 1. 
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Figure 1. 



Running A Sample 



Press [ENTER! when checks are in the printer. You can now run a sample to test 

the alignment. Press [Y) (in answer to Test Printer Alignment). You can run 

as many samples as you want by pressing JY] . When you are ready to print, press [Nj . 



Payroll Processing (continued) 



Printing 



1. Type the starting check number and press [ENTER] 



2. Type the date (MM/DD/YY). Example: 07/15/79. Press [ENTER] . 

3. You can now have (A)ll or (I)ndividual checks printed. Note: Individual 
check printings will come in handy if one of the checks has a mistake and 
must be reprinted. 

After you press S , the checks will begin printing. As each check is printed out, 
the employee name and the net pay will appear on the screen. 

Note: When printing large numbers of checks, check the alignment periodically in 
case the forms slip. If this happens, press the "pause" switch on the printer and 
adjust. When realigned, turn off the "pause" button and printing will resume. 

After all the checks are printed, you will return to the Payroll Processing Menu. If 
you are printing individual checks, press H (for employee number) to return to the 
Menu. 

Now you can have a printed check register. 

Check Register 

Type El at the Menu for Check Register. 

Note: For those without a printer, use this and the Employee Processing section 
to get the information you need to make out your checks. If you want year-to- 
date totals on your checks, you'll have to run Payroll Totals before you finish 
making out the checks. If checks were not printed, check numbers will be (J). 

1 . Press (S] or OB for the register to go to the Screen or Printer. 

2. You will get a list of every check you've just printed. 



3. Press |ENTER| after you've seen all of the checks. 

4. You will see the payroll totals for this period. 

Note: If you notice any errors in the check register, go back to employee 
processing, and make the necessary corrections and print a new check. You can 
use the Individual Check option. After making the corrections, print a new check 
register. 
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Saving Data 

Press [S] at the Payroll Processing Menu. 

1. Rewind the Data tape. 

2. Set the recorder to "RECORD". 



3. Press ENTER when ready 



Note: You need to record the data from every pay period. This will enable the 
computer to update totals. 

If this is not the end of a quarter or year, congratulations — you have just run 
your first payroll. Take the Data Tape out and store it in a safe place. For your 
next payroll, repeat the process starting on page 15 for Payroll Processing. If 
you're at the end of a quarter or year (or you just want to see the yearly payroll 
totals), go onto the next page for Payroll Totals. (Start at Step 2.) 



Payroll Totals 



Payroll Totals 

Here's how to print and reset totals: 

1. Power up the TRS-80. 

2. Load the Payroll Totals, PRTOT tape in the recorder and rewind. 

3. Set the volume on the recorder between 4 and 6. 

4. Press the "PLAY" button on the recorder. 
Screen will show: You type: 



lEMORY?^ Press ENTER 



READY>„ ED Ed (3 [D] and press ENTER 



When the Payroll Totals tape has loaded : 

1. Remove the tape from the recorder and load the Data Tape. 

2. Rewind the Data Tape. 

3. Set the recorder to "PLAY". 



4. Press ENTER 



5. You will now see: 

READING PAYROLL DATA 
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Once Payroll Data is read, the screen will show: 




This is the Menu for Payroll Totals. 



End Of Year 



1. 

2. 

3. 

4. 
5. 



Press E for Print or Q5] for Display. 

You will see the individual employee totals for the year on the screen (or a 
printed copy from the printer). 



At the end of this list, press | ENTER 



Now you will see the company payroll totals for the year. 

When the report is complete, you will be asked if it's okay to reset the 
totals. Type EKBUI if it is the end of the year. This will reset all totals (for 
the year), to zero. 
A 03EO answer will not change the totals. 



6. Now you'll return to the Menu. 

7. Save the data. 



Revising Company Information 



How To Update Or Revise Company Maintenance 

It might be necessary to change information periodically. The Tax Tables will 
probably change from year to year. You may also have to change Company 
Payroll Information. Here's how to perform these operations. 



How To Change The Tax Tables 

1. Load the Company Maintenance tape as specified in the "Set Up" procedure. 

2. When asked if this is a new payroll, press |N] for No. 

3. Press (TJ for Tax Tables at the Main Menu. 

4. Press [S) for Single Employees Table (or [M] for Married). 

5. When asked if this is a new table, press (B . This will set the table at zero. 

6. Using updated tax charts, fill out the tax tables (as you did for "Set Up"). 

7. Press |§ to return to the Main Menu. 

8. If you do not need to change anything else, press HO . Load the Data Tape 
and record. 

What If Company Payroll Information Changes 

1. Press [N) when asked if this is a New payroll. 

2. Press (P) at the Main Menu. 

3. The current information should now appear. 

4. Indicate at the bottom of the screen that all information is not correct by 
pressing |N] . 



5. Now type in the number of the line that needs correcting and press 



ENTER 



6. You can change as many lines as needed by pressing Q5] until everything is 
correct. 
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7. Return to the Main Menu by pressing [Y] . 

8. Press HO to Save the corrected data. 

9. Load the Data tape and record. 

Revising and updating is the only time you'll need to use the Company Maintenance 
tape. 

What If An Employee Gets A Raise Or Marries, etc. 

If you need to edit employee records for any reason, here's how. 

1. Load the Payroll Maintenance tape (as specified in "Set Up"). 

2. Press Oe) for Edit Employee File. 

3. From the list of commands, press [S] for Search. 

4. Now you can type the employee's number which needs correcting. Press 



ENTER 



5. The computer will search for that number and then display the employee's 
record. 

6. To make the necessary corrections, press [§] for Edit, then type the number 
of the line that needs correcting. 

7. If more than one employee needs editing, use the search option or, press [N] 
for Next, or [F] for Previous, until you get to the employee. 

8. Press H to return to the Menu. 

9. Rewind Data Tape and record new information. 



Revising Company Information (continued) 



*• 



What If I Hire A New Employee? 

Note: You can't add an employee if you've reached the maximum allowed by the 
program. If you delete an employee, then you can add one. 

1. Load the Payroll Maintenance tape. 

2. Press [I] at the Menu. 

3. Press [A] at the command list. 

4. Now you can type in the new employee's number. 

5. Fill out the file as you did in "Set Up". 

6. Return to the Menu. 

7. Rewind the Data Tape and record. 

8. Your new employee is now on payroll. 

What If An Employee Quits Or Is Fired? 

Follow these steps to delete an employee. 

Note: Do not delete an employee until the end of the year, or unless you save a 
permanent record of his earnings for use on W-2 forms. 

1 . Load the Payroll Maintenance tape. 

2. Press [E] at the Menu. 

3. Press [S] or [N0 to find the employee you want to delete. 

4. When the employee's record is on the screen, press [S] . 

5. You will be asked if it's okay to delete. This gives you a second chance (in 
case you hit the delete key by accident). Press [Y] . 

6. That employee's file will be deleted. It will no longer be in the computer. 

7. Return to the Main Menu by pressing H). 

8. Rewind the Data Tape and record. 

Now you should be able to handle anything that comes up regarding payroll. A 
quick look at the instructions will serve as a refresher if you have any problems. 
Good Luck. 
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For Disk Users 



For Disk Users 

This program has a built in provision for transferring it to disk. Disk users will 
find this more convenient and much simpler to use than tape. You must have at 
least one Disk Drive and a TRS-DOS diskette to run this program on disk. 
When operating under disk, the data files will be placed on disk rather than tape 
— automatically. Follow these instructions to transfer the program from tape 
to disk. 



Killing The Files 

1. Turn everything on except the keyboard of the TRS-80. 

2. Put a TRS-DOS Diskette in Drive (2). 

3. Make a Backup of the Diskette. (If you do not know how to make Backup 
copies check the instructions on page 31.) 

4. Take the TRS-DOS Diskette out and put the Backup copy in Drive 0. Note: This is 
done to save the files on the original TRS-DOS Diskette. You may need 

those files at a later date. 



5. Type [Dim IS and press 



ENTER 



6. Type [HOD (DO and the name ° f the file ^ s ^ in the director y and P ress 

. Kill every file on the directory of the Backup copy (other than 



ENTER 



system files). If BASICR is on the disk, this should also be killed by 
typing [HfflBODMtslfflmiaraEOTSEmtc]. 

Once you've finished, we can begin the transfer from tape to disk. 



Transferring To Disk 

Using the Backup copy of the TRS-DOS Diskette in Drive 0, type ISiBE] 



Dress ENTER |. 




The screen will show: 


You type: 


HOW MANY FILES? 


Press ENTER | 


MEMORY SIZE? 


Press ENTER 
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For Disk Users (continued) 
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Note: The following steps will be the same for each program tape, Payroll, Company 
Maintenance, Payroll Maintenance, Payroll Processing, and Payroll Totals. 

1. Put the tape labeled "PAYROLL" in the recorder and rewind it. 

2. Set the volume of the recorder between 4 and 6. 



3. Type mmmUnmHn and press lENTER] . 

4. Press the "PLAY" button down on the recorder. 



5. Type [c] EOS El and P ress [ENTER 

6 . When the tape has loaded , ty pe [§] ® E E @ (1 Ei E E and press 



ENTER 



7. Remove the "PAYROLL" tape. Repeat the process detailed above for each 
of the program tapes. (You can omit steps 2 and 3). 

Once you have saved all of the programs, make a backup copy of the program 

diskette. 

Note: The disk version of Tape Payroll will hold 40 employees. 



Running Your Payroll 

Now you can run your first payroll on disk. Here's how to do it. 

1. Turn on everything except the keyboard. 

2. Place the Payroll Disk in Drive 0. 

3. Turn on the keyboard. 



The screen will show: 

DOS READY 
HOW MANY FILES? 
MEMORY SIZE? 
READY>^ 



You type: 

ESU DCDE] a nd press |ENTER 
Press IEIMTERI 



Press I ENTER 



(BPE10EE1SBEIIQB1ID and 



press ENTER 



For Disk Users (continued) 



The screen will show: 




This is the Payroll Menu. After every Payroll session be sure and make a backup 
copy of the Payroll disk. 
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Backing Up Your Diskette 



Backing Up Your Diskette 

Leave the program diskette you just made in Drive 0. Insert a blank diskette in 
Drive 1 . Press the reset button on the left hand side of the keyboard and follow 
these instructions exactly: 



The screen will show : 

DOS READY 

SOURCE DRIVE NUMBER? 
DESTINATION DRIVE NUMBER 
BACKUP DATE (MM/DD/YY) 

HIT'ENTER'TOCONTINUE 



You type: 

H [A] [C] [ED ED E] and P r ess l ENTER 
O and press |ENTER[ 

*[TJ and press [ENTERl 
HimiZlBDffllZlSlH] and press | ENTER] 
(example for January 1, 1980) 
STOP — don't type anything! 



1. Remove the original diskette from Drive (3 and save it. 

2. Take the backup diskette out of Drive 1. Place the Backup copy in Drive 
and close the door. 



3. Press ENTER 



*Note: If you are using only one Disk Drive, type for Destination Drive Number 
and follow the instructions given by BACKUP. 
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Annual Tax Table 



Annual Tax Table 

Single Person — including head of household : 

If the amount The amount of income tax to be 

of wages is: withheld shall be: 

Not over $1,420 

Over - But Not Over- Of Excess Over 

$1,420 - $3,300 15% $1,420 

$3,300 - $6,800 $282 plus 18% $3,300 

$6,800 - $10,200 $912 plus 21% $6,800 

$10,200 - $14,200 $1,626 plus 26% $10,200 

$14,200 - $17,200 $2,666 plus 30% $14,200 

$17,200 - $22,500 $3,566 plus 34% $17,200 

$22,500 $5,368 plus 39% $22,500 

Married Person — 

If the amount The amount of income tax to be 

of wages is: be withheld shall be: 

Not over $2,400 

Over - But Not Over- Of Excess Over 

$2,400 - $6,600 15% $2,400 

$6,600 - $10,900 $630 plus 18% $6,600 

$10,900 - $15,000 $1,404 plus 21% $10,900 

$15,000 - $19,200 $2,265 plus 24% $15,000 

$19,200 - $23,600 $3,273 plus 28% $19,200 

$23,600 - $28,900 $4,505 plus 32% $23,600 

$28,900 - $6,201 plus 37% $28,900 




TRINITY 

FORMS 

COMPANY 



TRS-80 ORDER FORM 



FOR 



CUSTOM PRINTED CHECKS 



DESIGNED FOR USE ON TRS-80 TRACTOR FEED PRINTER 



A STAFFORD LOWDON COMPANY 



o 
o 
o 
o 
o 
o 
o 



ANY BUSINESS 
USA. 



'vOQOOQQOQO': 



I : 

Ci""~ ' "" " ' " f ""'"""" ! 

T "■ " r "I 



__CH> I " rMii ! |1A ' : i '.in A| ■.( , uml ,■ Ml | 



STANDARD SPECIFICATIONS 
SIZE: 8% x 7 (7% x 7 DETACHED) 
NUMBER OF PARTS: ONE 
INK COLORS: LIGHT BLUE & BLACK 

PAPER: 24LB. WHITE MICR BOND 



#1- 



PRIIMT EXACTLY IN THE SPACE AT RIGHT, THE 
IMPRINT YOU WANT ON YOUR FORM. SPACE 
SHOWN IS THE EXACT SIZE AVAILABLE FOR 
YOUR COMPANY NAME, ADDRESS, STATE, ZIP 
AND PHONE NUMBER AS DESIRED. 



TO ORDER YOUR FORMS SIMPLY FOLLOW 
THE STEP BY STEP PROCEDURES AS SHOWN 
BELOW: REMEMBER THAT YOUR ACCURACY 
IS VERY IMPORTANT AS YOU WILL BE 
RESPONSIBLE FOR YOUR ERRORS! 

TYPE OR PRINT CLEARLY 



#2- 



CHECK QUANTITY DESIRED: WE SUGGEST 

□ 500 □ 1,000 □ 2,500 
PRICES: $96.00 $120.00 $220.00 



YOU ORDER AT 
□ 5,000 □ 10,000 
$280.00 $340.00 



LEAST A 1 YEAR'S SUPPLY. 



□ 



OTHER: 



PRICE WILL BE QUOTED. ( OVER 10,000 ONLY) 

TEXAS RESIDENTS ADD 5% SALES TAX. 



#3- 



PLEASE ATTACH A VOIDED CHECK THAT YOU ARE PRESENTLY USING 
FOR YOUR PAYROLL, OR ATTACH A BANK SPECIFICATION SHEET 
THAT YOU MAY OBTAIN FROM YOUR BANK. A HANDWRITTEN COPY 
OF THE ACCOUNT NUMBER IS NOT ACCEPTABLE. 



#4- IF YOU WANT WINDOW ENVELOPES PLEASE CHECK QTY. DESIRED. 

□ NO ENVELOPES □ 500. $ 53.00 □ 1.000. $ 74.00 |~| 2.500. $ 132.00 □5.000$ 206.00 

#5- □ CHECK HERE IF YOU HAVE SPECIAL INSTRUCTIONS ON REVERSE. 

#6- ENCLOSE YOUR CHECK FOR FULL PAYMENT MADE PAYABLE TO TRINITY FORMS COMPANY. 

#7- MAKE SURE ALL INSTRUCTIONS ARE COMPLETE AND CHECK FOR SPELLING ERRORS. 

#8- ALLOW 3 TO 5 WEEKS FOR COMPLETE DELIVERY. 

#9- GIVE US YOUR SHIPPING ADDRESS: 



#10- SIGNED:.. 



TITLE: 



.PHONE #: 



#11- SEND THIS FORM, YOUR VOIDED CHECK SAMPLE OR YOUR BANKS SPECIFICATION SHEET, AND 

YOUR PAYMENT TO: TRINITY FORMS COMPANY, NO. 1 FORMS DRIVE, CARROLLTON, TEXAS 75006 



RADIO SHACK TRS-S0 PRPROC PROGRAM 



PAGE 1 



1 MO 1979 BY TANDY CORP. 

2 CLS : DK= 1 : 0NERR0R60T099 : CLOSE : ONERRORGOTO0 : I FDK= 1 THENCLEAR1 700 : DK= 1 : X7.=4 1 : ME7.=4 

0: GOTO 1.0 
4 CLEAR0:X--( INK < PEEK( 16544)+PEEK( 16545)*256) / 16000 ) -2 ) *60+15 

6 PRINKMAX EMP : " 5 X : CLEAR ( 36*X+256 ) : FORX = 1 1 T014 : M*=M*+CHR* < PEEK ( 15360+X ) ) :NEXT 
8 ME7.=VAL(M*) :X7=ME7.+ 1 

10 DEFINT I-N, P? W Z :DEFSTRV? K:DEFDBLG 

40 D I MW ? WL ? WS ? WD ? FL ? EX ( X ) ? E* ( X ? 5 ) ? RG < X ) ? G ( X ? 8 ) ? CN ( X ) ? PR# ( X ) ? NP# ( X ) ? TX# ( X ) ? V ( 1 2 ) ? 

R(Xi7)i "I" X ( X ? 7 ) ? B ( 8 ? 2 ) ? P ( 8 •> 2 ) ? D ( S ? 2 ) 
50 P 1 *~ " # ? ##### . ## " : P2*= " ### . # ## . ### 7. 7. ###### . ## " 
60 POKE16553? 255 :FORX=0TO1 1 : READY ( X ) :NEXT: V2=" " :V4=" " :V5=" 
70 P3*= "#####.##" : P4*= "####. ##" :P5*= "###.##" :P*= "####" 
80 L*==STRING*<31> 140) : GOSUB5000 s X=FRE ( X*) :GOTO200 
90 DATAGROSS; PICA, FED W/hh STATE W/H»CITY W/H, DISAB. ■> OTHER? NET PAY, HOURLY? SALARY? 

NOT P A I D » E M P L Y E E N . 
99 DK=0:RESUMENEXT 

1 00 I N*= " " : W*= I NKEY$ : WD=0 : WS=WD : WL7.=WD : I FFL.=WDTHENFL= 1 
1 05 PRI NTSTRI NG$ ( ABS ( FL. ) , CHR* ( 1 36 ) ) ; STRING* ( ABS ( FL ) , CHR* ( 24 ) ) ; 
110 PRINTCHR*« 14) ; :F0RW"/.= 1T025 : W$=INKEY$: IFW*<>" " THEN! 15ELSENEXT : PRINTCHR* ( 15 ) ; : 



115 
117 
1 20 
125 

1 30 
135 
140 
145 
150 
155 
3.60 
165 
170 
175 
200 

210 
220 
230 
240 
250 
260 
270 
280 
290 
295 
300 
310 
320 



FORW%== 1 T025 : W*== I NKEY* : I FW*< > " " THEN1 1 5ELSENEXT : GOTO 1 1 
IFW*OCHR*( 13)THEN120ELSEPRINTSTRING*(ABS(FL) -WL"/.» " " ) ; 
PRI NTCHR* (15);: W/.=25 : NEXT : RETURN 

PRINTCHR* < 14) ; : IFW*=CHR$ ( 24 ) THENPRINTSTRING* ( WL%? CHR* < 24) ) " :GOTO100 
I FW*< > CHR* ( 8 ) THEN 1 45EL.SE I FWL7.=0THEN 1 1 0ELSEPR I NTCHR* ( 24 ) ; : I FFL>0THEN 1 35ELSE I F 

PEEK ( 1 64 1 8 ) ==44THEN 1 40 
I FPEEK ( 1 64 1 8 ) =46THENWD=0 : GOTOl 35EL.SE I FPEEK ( 1 64 1 8 ) =430RPEEK ( 1 64 1 8 ) =45THENWS=0 
I N*=LEFT* (IN*? LEN (IN* ) - 1 ) 
WL"/.=WL%-- 1 = POKE 1 64 1 8 ? 1 36 : GOTO 1 1 

I FABS ( FL ) ==WLXTHEN 1 1 0EL..SE I FFL > 0THEN I FW* >= " " ANDW* < = " Z " THEN 1 70 
IFW*=" . "ANDWD=0THENWD=1 : GOTO 170 
IFW$==" ? "THENPRINTW*; :WL7.=WL"'.+ 1 : GOTO 175 
I F ( W*== " -- " ORW*= " + " ) ANDWS=0ANDWL7.=0THENWS= 1 : GOTO 1 70 
I FW* < " " ORW*> " 9 " THEN 1 1 
PRINTW*; : IN*=IN*+W*:WL7.=WL7.+ 1 
I FABS ( FL ) = 1 THEN 1 1 7ELSE 1 1 
CLS:PRINTTAB(15) " PAYROLL PROCESSING" :PRINTL*?L* 



PRINTS202» " <E>MPLOYEE CALCULATIONS 
PRINTa458? "<OHECK REGISTER 
PRINT'a330? "<P>RINT PAYROLL CHECKS 
PRINTai586? "<S>AME DATA & END 
PRINT377S?"> ENTER A SELECTION : " ; 



:FL=1 :GOSUB100 



I F I N*= " E " THENGOSUB 1 000 
I F I N*= " C " THEN6OSUB2000 
I F I N*= " P " THENGOSUB3000 
I F I N*= " S " THENGOTO4000 
GOTO250 

I =0 : FORX= 1 TONE : I FE7. < X ) = 
NEXT: IFI=0THENPRINT" 
RETURN 



: GOTO200 
: GOTO200 
i GOTO200 



=ENTHENI=X:X=NE 



NOT FOUND" 
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400 J=0:PRINT3960, "> IS INFORMATION CORRECT (Y/N) : " ; : FL=1 : GOSUB100 

4 1 I F I N*= " Y " THEN J= 1 ELSE I F I N$ < > " N " THEN400 

420 RETURN 

90 1 FORX= 1 TO2000 : NEXT : RETURN 

1000 CLS:PRINTai28,L*;CHR*(188> ; L* : PRINT" REG HRS : 

OVERTIME HRS : 
OT RATE : 

COMMISSIONS 
OTHER INCOME 
1010 F0RX=lT05:PRINTaX*64+161,V(X); : NEXT : PRINT3545, " DEDUCT 1" ;: PRINT3609, " DEDUCT 

■'~i 11 

] 030 PR I NTL* ; CHR* (191); L* : PR I NT 

1040 PR1NTL*;CHR*( 143) ; L* : FORX=223TO750STEP64 : PRINT3X , CHR* ( 1 91 ) ; :NEXT 

L0«=,0 IFFX=1THENFX=0: PRINT30, V ( ID" : " ; -"GOTOl 160 

1100 IFKNETHENT*=" ( <N>EXT OR '3' TO EXIT ) " ELSET$=" < ' 3' TO EXIT) 

1 1 1 PR I NT30 , CHR* < 30 ) ; V ( 1 1 ) 5 T$ ? " : " 5 : FL=4 : GOSUB 1 00 

1115 I F I N*= " a " THENRETURN 

1 1 20 I F I N*= " N " AND I < NETHEN I = I + 1 : GOTO 1 1 60ELSE I F I N*= " N " THEN 1 1 00 

1 1 30 EN=VAL ( I N* ) : I FEN < 1 THEN 1 1 1 

1 1 40 6OSUB300 : I F I =0THENGOSUB90 1 : GOTO 1110 

1160 PRINT312,": " ;E"/.(I);" " ;E$ ( 1 , ) ;TAB( 46 ) ;E* ( 1 , 1 ) 

1170 PRINT3832,CHR*(30) ; :PRINTa64, ; :IFRG(I)<100THENPRINTV<8) ;" RATE : ";USING"## 

.####»; RG ( I ) ; : T=0 : GOTO 1 1 90 
118P PR I NT "ANNUAL SALARY : " ; USINGP1* 5 RG ( I ) ; : T=l 

1190 PRINTTAB(29) ;"PDS/YR : " ; E* < I , 4 ) ; V2 ; "EXEMP : " ; E* ( I , 3 ) ; V2 ; " MAR : ";E*(I,2); 
1200 IFPR# ( I ) >0THEN1500 
1210 IFT=0THENPRINT3203, ; : FL=-5 : GOSUB100 : R ( I , 0) =VAL ( IN* ) :R( I) 1 >=R< I , ) *RG < I )ELSE 

R(I,0)=0:R(I, 1 >=RG(I )/VAL(E*(I,4) ) 
1220 PRINT3210, ; USING" **" +P1* 5 R( I , 1 ) ; 
1 230 PR I NT3335 , ; : FL=--5 : GOSUB 1 00 : R ( 1 , 2 ) =VAL (IN*) 
1 240 I FR ( I , 2 ) =0THENR ( 1 , 3 ) =0 : GOTOl 270ELSE I FT=0THENOT ! =RG < I ) * 1 . 5ELSE0T ! =RG ( I ) 72080 

*1.5 
12"=.0 PRINT3896,CHR*<30) ;TAB< 10) ; "PRESS <ENTER> FOR : " USINGP4* 5 OT ! ; 
1 260 PR I NT3394 , ; : FL=-7 : GOSUB 1 00 : R < I , 3 ) =VAL ( I N* ) : I FR ( I , 3 ) =0THENR (1,3) =OT ! 
126^ PRINT3394,USIN6P5*;R( 1,3) ; 

1270 R(I-4)=R(I , 2)*R(I,3) :PRINT3404, ;USINGP1*;R< 1,4) ; : PRINT3832, CHR* ( 31 ) ; 
1780 PRINT3534, ; :FL=-7 : GOSUB100 : R ( 1 5 5 ) =VAL< IN* ) 5PRINT3532, ; USINGP1* ; R ( 1 , 5 ) ; 
1290 PRINT3598, ; : GOSUB 100: R( I , 6)=VAL( IN*) :PRINT3596, ;USINGP1*;R( 1,6) ; 
1300 PR#( I)=R(I, 1)+R( I,4)+R(I,5)+R< 1,6) 

1310 PRINT3704, "GROSS EARNINGS" ; TAB( 20) "USINGP1* ; PR# ( I ) ; 

1320 PRINT3896,"> <OALCULATE TAXES OR ENTER <M>ANUALLY »; :FL=1 : GOSUB 100 
1330 IFIN*="M"THEN1600ELSEIFIN*O"C"THEN1320 
1 340 6OSUB7000 : GOSUBS000 : GOSUB9000 : GOSUB 1 0000 : GOSUB 1 1 000 

1350 PRINT3566, ; :FL=-7: GOSUB 100 : TX ( I , 5 )=VAL ( IN* ) :PRINT3564, ; USINGP1* 5 TX ( I , 5 ) ; 
1360 PRINT3630, ; :GOSUB100: TX ( I , 6 > =VAL ( IN* ) :PRINTa628, ; USINGP1* ; TX ( 1,6) ; 
1370 TX#(I)=0:FORX--=0TO6:TX#(I)=TX#(I)+TX(I,X) :NEXT 
1380 PRINT3737, "TOTAL DEDUCTIONS" TAB( 52 ) ;USINGP1* ;TX# < I ) ; 
1390 NP#(I)=PR#(I)-TX#(I):PRINT3842,V(7)" = " USINGP1* ? NP# ( I ) : PRINTCHR* ( 31 ) ? 



* 



RADIO SHACK TRS-80 PRPROC PROGRAM PAGE 3 

1 400 GOSUB400 : I F J= i THEN 1 000 

1420 PRINTS>960iCHR*<30);"> <R>E-ENTER OR <OANCEL " ; : FL=1 : GOSUB100 

1430 PR#( I >=0: IFIN*="R"THENFX==1ELBEFX==0: IFIN*<> " C" THEN 1420 

1440 GOTO 1000 

1 500 I FT=0THENPR I NT3204 , ; US I N6P5$ ; R ( I , ) ; 

1 5 1 PR I NT32 1 , ; US I NG " $* " +P 1 * ; R ( I , 1 ) ? 

1520 PRINT3335, ; UBINGP5* ; R < I , 2) ; :PRINia394, ;USIN6P5*;R( 1,3) ; 

1S30 PRINT3404, " US I N6P1* ; R ( 1 , 4 ) ; :PRINT3532, ;U5INGP1$ ; R ( I , 5 ) ; 

1540 PRINT3596, ; USINGP1* ; R < 1,6) ; : PRINT3704, "GROSS EARNINGS" ;TAB(20) 5 USINGP1* ; PR# 

( I ) ; 
1550 FORX=0TO6:PRINT3X*64+244, ;U5INGP1$ ; TX ( I , X ) ; : NEXT : GOTO1370 
1600 FORX--0TO6: IFX=2ANDC< 5 ) =0THEN1630 

1610 I F X=3ANDC ( 7 ) =0THEN 1 630ELSE I FX=4ANDC ( 8 ) =0THEN 1 630 
1 620 PR I NT3X *64+244 , ; : FL=-7 : GOSUB 1 00 : T X f I , X ) =VAL < I N* ) : PR I NT3X *64+244 , ; US I NGP 1 * ; T 

X ( I ,X); 
1630 NEXT: GOTO 1370 

2000 CLS:H$=" CHECK REGISTER" :PRINTTAB( 15) ;H* 
2005 FORX=0TO7 s T# ( X ) =0 : NEXT 
2007 PRINT" 

> <S>CREEN OR <P>RINTER (B OR P) : " 1 : FL= 1 : GOSUB1 00 : IFIN*=" S" THEN2200ELSE I F 
IN*O"P"THEN2007 

201 I FDT*= " " THENPR I NT " 

> DATE (MM/DD/YY) : " ; : FL=8: GOSUB100: DT*=IN* : IFLEN ( DT$ ) O8THEN2010 
2020 POKE 16425, 1 : IFPEEK ( 1 4312) M27THENPRINT3256, "** PRINTER NOT READY ** 

> PRESS <ENTER> TO CONTINUE OR <3> TO EXIT : " ; :FL=1 =GOSUB100 : IFIN$="a"THEN 
RETURNELBE6OTO2020 

2070 G0SUB2 170: FORI = 1 TONE : G0SUB2 1 60 : LPR I NTTAB ( 7 ) US I NGP$+V4 ; E% ( I ) ; : LPR I NTE* ( I , ) ; 

TAB (40) ; 
2080 IFPRtt( I )=0THENLPRINTV( 10) : GOTO2130ELBELPRINTUSINGP3* ; PR# ( I ) 
2085 LPRINTUSINGP$+"#"+V2+P3*+" " ;CN< I ) ; 

2090 FORX=0TO6:LPRINTUSINGP4*+V2;TX( I,X) ; : NEXT : LPRINTUSINGP3* ;NPtt ( I ) 
2110 T# < ) =T# ( ) +PR# ( I ) : T# ( 7 ) =T# ( 7 ) +NP# ( I ) 

2 1 20 FORX=0TO4 : T# ( X + 1 ) =T# ( X + 1 ) +TX ( I , X ) : NEXT : T# < 6 ) =T# ( 6 ) +TX ( I , 5 ) +TX < 1 , 6 ) 
2130 LPRINTCHR*(138) : NEXT :LPRINTCHR$ < 12) :LPRINTTAB ( 15 ) ;" PAYROLL TOTALS" sLPRINTST 

RING* (40, "=" ) 
2140 FORX=0TO7:LPRINTV(X) ;TAB(30) ;USINGP3*+" " ;T#(X) : NEXT :LPRIIMT 
2150 LPRINTCHR$( 12) : RETURN 

2160 IFPEEK( 16425 ) <5STHENRETURNEL3ELPRINTCHR* ( 12) 
2170 LPRINTTAB( 10) 5 C$ ; V2; H* 5 V4 ; DT$ : LPRINTCHR* ( 138 ) 
2175 L PRINTTAB(7) ;"EMP # NAME" ; TAB( 40) ;" GROSS / 
2180 LPRINT"CHK #" ; V4 ; V< 1 ) V2; V( 2) V2; V( 3) V2; V ( 4 ) V2; V( 5 ) V2 ; " DED 1 DED 2 "V2;V( 

7) 
21<?0 LPRINTSTRING*(80, " = " ) : LPRINTCHR$ ( 138) : RETURN 
2200 CT= 1 : GOSUB2300 : FOR I = 1 TONE : I FCT=6THENGO5UB2400 : GOSUB2300 
2210 PRINTE'/.( I ) ;V2?E*( 1,0) ?TAB(30) 5 : IFPR# ( I ) =0THENPRINTV ( 10) :6OTO2240 
2215 PRINTUSINGP4*+" " ; PR# ( I ) ;NP# < I ) 

•■■■•■'20 PRINTUSING"##### " ;CN(I) ; : FORX=0TO6 : PRINTUSIN6" " +P4* ; TX ( I , X ) ; : NEXT: PRINT 
■-'■■•'30 T# ( ) =T# ( ) +PR# ( I ) : T# ( 7 ) =T# ( 7 ) +NP# ( I ) : FORX = 1 T05 : T# ( X ) =T# ( X ) +TX ( I , X-l ) : NEXT : 
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T# ( 6 ) =T# •: 6 > +TX ( 1 , 5 ) +TX ( I , 6 ) 
2240 CT-CT+1 :NEXT:GOBUB2400 
2250 CLS s PR I NTTAB (10);" PAYROLL TOTALS 

" :FORX=0TO7: PRINTVC X ) :NEXT 
2260 FORX=0TO7 : PRINT3220+64*X , USINGP1 * ; T# ( X ) ; : NEXT : GOTO2400 
2300 CLS:PRINT"EMP .# NAME" TABC 30 ) "GROSS NET / 

CHK # PICA FED W/H STATE CITY DISAB. DED 1 DED 2" : PRI NTSTRIN 

G*(63, "--" ) : RETURN 
2400 CT-i :PRINT3960, "> PRESS <ENTER> TO CONTINUE : " ; : FL=1 : GOSUB100 : RETURN 
3000 CLS:PRINT"> LOAD CHECKS IN PRINTER" : 1=0 

30.1.0 PRINT3128, "> TEST PRINTER ALIGNMENT (Y/N) ? " ; : FL=1 :GOSUB100 
3020 IFIN*="Y"ThCNI=0sDT*==P*+P*:E*(0, 1 )=P5*+" . " + P* : GOSUB3190 : GOTO3010 
3030 I F I N$ < > " N " THEN30 1 

3040 PRINTS256, "> STARTING CHECK NO. : " 5 : FL=-5 : GOSUB100 : CN=VAL ( I N* ) 
3050 PRINT3384,"> DATE (MM/DD/YY) : " ; : FL=8 : GOSUB100 : IFLEN ( IN* ) OSTHEN3050ELSEDT 

*=IN$ 
3060 PRINTa640,"> <A>LL OR < I >NDI VI DUAL CHECKS : " ; : FL=1 : GOSUB10B 
3065 I F I N*= " A " THEN I = 1 : NF= 1 ELSE I F I N*== " I " THENNF=0ELSE3060 
3070 GOSUB400: IFJ=OTHEN3040 

30S0 CT=0 : CLS : PR I NT " EMP . # " V5 " NAME " TAB ( 40 ) V ( 7 ) 
3090 PRINTSTRING*(63 ! "=" ) :lFNF=0THENPRINTa960, "'N' FOR NEXT EMPLOYEE? ''3' TO EXI 

T" ; : PR I NTS 128, ; 
3 1 00 I FNF= 1 THEN3 1 50ELSEFL=4 : 60SUB 1 00 : I F I N*= " 3 " THENRETURNELSEEN= l v'AL (IN*) 
3110 I F I N$= " N " AND I < NETHEN 1 = 1 + 1: GOT03 1 50ELSE I F I N*= " N " THEN3 1 00 
3 1 30 GOBUB300 : I F I =0THEN3340 
3150 PRINTCHR*(29) ; USINGP* 5 EV. ( I ) ; : IFPR#( I ) =0THENPRINTV2 ; E* ( I » ) ; V2! V ( 1 ) ; : G0T033 

35 
3 1 60 PRI NTTAB ( 7 ) ; E* < 1 , ) ; TAB ( 38 ) ; US I NGP 1 * ; NP# ( I ) ; 
3190 CN( I )=CN:LF=3:GOSUB3900:LPRINTTAB(45) ;CN;TAB(56) 5 DT* 
3200 LF==4:GOSUB3900:LPRINTTAB( 14) ;E*( 1,0) ;TAB(56) 5 USING" **$" +P1* 5 NP# ( I ) 
3210 LF=10:GOSUB3900: IFRG( I ) <1O0THENT=0ELSET=1 
32 1 5 I FT=0THENP0 I ==RG ( I ) ELSEP0 ! =0 

3220 L PR I NTTAB ( 4 ) US I N6P2* ; R ( 1 , ) ; P0 ! ; V ( T+8 ) ; R ( 1 , 1 ) 
3230 LPR I NTTAB ( 42 ) ■ E* ( 1 , ) V2 ; EV. ( I ) 

3240 LPRINTTAB(4) ;USIN6P2$;R( 1,2) ;R( 1,3) ; " OT HRS" ;R(I,4) 
3250 LPRINTCHR*(138) : LPR I NTTAB ( 17) ;"COMM" 5 TAB (26) ;USINGP3*;R( 1,5) 
3260 LPR I NTTAB ( 40 ) ; CN ; TAB ( 49 ) ; DT* ; V2 " E* ( I , 1 ) 
3270 LPRINTTAB(17) ;V(6) ; TAB (26) -USINGP3* ; R( I , 6) 

3290 LF==2:GOSUB3900:LPRINTTAB( 17) ;V(T+8) ;TAB(26) ;USINGP3* ; PR# ( I ) ; 
3300 LPRINTTAB(59)USING"***"+P1*;NP#( I ) 
3310 LF=3:GOSUB3900:LPRINTTAB(14); :LPRINTUSINGP4* ; TX ( I , 1) ; rLPRINTTAB ( 24 ) ?USINGP4 

*+" ";TX(I,0); 
3315 FORX=2T06:LPRINTUSINGP3*5TX< I,X) ; :NEXT:LPRINT 
3320 GOSUB3900:LPRINTTAB( 18) ;USINGP3*+" "+P3*+" " +P3$+V2+P4*+V2+P3*+V2+P4* ;G ( I , 

)+PR#(I) ;G(I,2)+TX(I, 1) ;G(I, 1)+TX(I,0) ;G( I , 3 ) +TX ( I , 2) ; G ( I , 4 ) +TX ( I , 3) ;G(I,5) 

+TX(I,4) 
3330 LF=5:GOSUB3900: IFI=0THENRETURNELSECN=CN+1 
3335 I FNF= 1 THEN I = I + 1 : I F I >NETHEN I =0 : PR I NT " 
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CHECKS PRINTED" ; :GOSUB901 : RETURN 
3340 CT=CT+1 : IFCT> 1 0THEN30B0EL8EPRI NT : G0T031 00 
3900 FORX= 1 TOLF : LPRI NTCHR* ( 1 38 ) : NEXT s RETURN 

4000 CLS: PRINT" UPDATING TOTALS" : FORI =1T0NE : IFPR# ( I )=0THEN4030 
4010 6< I !0)=G( I? 0)+PR#< I ) :G( I .8!=S( I , 8)+NP#( I ) 
4020 F0RX==1T07:G( I, X)=G( I, X)+TX( I » X-l ) :NEXT 
4030 NEXT: 60706000 

5000 IFDK=1THEN0PEN" I" , 1 , " PRDATA" ELSEDK=-1 :T*=" PLAY" :GOSUB5200 
5010 PRINT" 

** READING PAYROLL DATA 
5020 T NPUT#DK i C* , NE » C ( 1 ) , C ( 2 ) , C ( 3 ) , C ( 4 ) , C ( 5 ) , C ( 6 ) , C « 7 ) , C ( 8 ) 
5 3 F R X =:= T 1 : I N P U T # D K , B ( 0jX))B(hX)i B ( 2 , X ) , B ( 3 , X ) , B ( 4 , X ) , B ( 5 , X ) , B « 6 , X ) , B ( 7 , X ) , 

FM0,X),P(l,X),P(2,X),P(3,X),FM4,X),P(5,X)5p(6,X),PC7,X),D(0,X),D(l,X),D(2,X 

) i D ( 3 , X ) , D ( 4 , X ) i D ( 5 » X ) , D ( 6 , X ) , D ( 7 , X ) : NEX T 
5090 FORX^ITONE 

5 1 00 I NPUT#DK , E"/. ( X ) , Ef ( X , ) , E$ ( X , 1 ) , E* ( X , 2 ) , E* < X , 3 ) , E* ( X , 4 ) , RG ( X ) 
5 110 I N PUTttDK i G < X i ) » G ( X , 1 ) , G (Xi2)iG( X » 3 5 , 6 ( X i4ii G ( X •> 5 ) 5 G ( X , 6 ) ? G ( X ? 7 ) ! G ( X 5 8 ) 
5120 NEXT : I FDK=1 THENCLOSE : RETURNELBERETURN 
5200 CLS SPRINT "LOAD DATA TAPE & REWIND 

c:; FT TO "T*:PRINTa320> "PRESS <ENTER> WHEN READY : ";: FL= 1 : GOSUB100 : RETURN 
6000 K=" " : IFDK=1THEN0PEN"0" , 1, " PRDATA" EL.SEK= " ■> " :DK=-1 :T*=" RECORD" :GOSUB5200 
601 D$= " i " : PR I NTttDK » C* ; D* ; NE ; K ; C ( 1 ) ; K ; C ( 2 ) ; K ; C < 3 ) ; K ; C ( 4 ) ; K ; C ( 5 ) ; K ; C < 6 ) ; K ; C ( 7 ) ; K 

;C(8) :FORX=0TO1 
6020 PRINT#DK,B(0,X) ; K ; B ( 1 , X ) ? K ; B <2» X ) ? K 5 B ( 3, X ) ; K ; B < 4? X ) ; K ; B ( 5, X ) ; K ; B< 6, X ) ; K ; B ( 7 

i X ) ; K ; P ( 1 X ) ; K ; P ( 1 ■> X ) ; K ; P ( 2 » X ) ; K ; P ( 3 ■< X ) ; K ; P ( 4 ■> X ) ; K ; P « 5 ■> X ) ; K ; P < 6 1 X ) ; K ; P ( 7 ■> X ) 

; K ; D ( » X ) ; K ; D ( 1 ■> X ) ; K ; I) ( 2 , X ) ; K ; D ( 3 , X ) ; K ; D ( 4 , X ) ; K ; D ( 5 ? X ) ; K ; I) ( 6 , X ) ; K ; D « 7 ■> X ) : NE 

XT 
6050 FORI = lTONE:PRINT#DK?E"/.( I ) ; D$ ; E* ( 1 , ) ; D$ ; E$ ( I ■> 1 ) ; D* ; E* ( 1 , 2 ) ; D* ; E* ( 1 , 3 ) ; D* ; E* 

(1)4); D$ ; RG ( I ) 
6060 PR I NTttDK , US I NG " ###### . ##D0 " +K ; G ( I > ) ; G ( 1 , 1 ) ; G ( 1 , 2 5 ; G ( 1 , 3 ) ; 6 ( 1 , 4 ) ; G ( 1 , 5 ) 5 G ( I 

» 6 ) ; G i 1 5 7 ) ; G ( I i 8 ) 
6070 NEXTI : IEDK=1THENRUN" PAYROLL" ELSEPRINT" 

> DO YOU WANT TO MAKE ANOTHER COPY (Y/N) : "; 
6080 FL=1 :GOSUB100: IFIN*==" Y" THEN6000ELSEIFIN*<> "N" THENPRINTCHR* ( 8 ) 5 : GOTO6080ELSE 

END 
7000 I EG (1,6) > C ( 3 ) THENTX ( I » ) =0 : GOTO7040 

70 1 I FG (1)6) +PR# ( I ) < = C ( 3 ) THENFG--PR# ( I ) ELSEFG-C ( 3 ) -G (1,7 ) 
7020 T X ( I , ) = C ( 2 ) / 1 00*FG 

7040 PRINT3244, ;USIN6P1*;TX (1,0);: RETURN 
8000 AG#=PR# ( I ) *VAL ( E$ ( I , 4 ) ) -VAL ( E$ ( I , 3 ) ) *C ( 4 ) 
80 1 MS=0 : I FE* ( I ) 2 ) = " M " THENMS= 1 

8020 FORX=0TO7 : I FAG#<B ( X , MS ) THENBR=X : X=7ELSEI FX=7THENBR=X 
8030 NEXT : I FBR=0THENTX ( I , 1 ) =0 : 6OTO8050 

8040 TX ( I , 1 ) == ( ( AG# --B ( BR- 1 , MS ) ) *P ( BR , MS ) / 1 00+D ( BR , MS ) ) /VAL ( E* ( I , 4 ) ) 
8050 PR1NT330S, ;USINGP1*?TX (1,1);: RETURN 
9000 I F C ( 5 ) =0THENT X ( 1 , 2 ) =0 

9010 IFC(5)=3THENPRINTa374» ; = FL=-7 : GOSUB100 : TX ( I,2)-"=VAL( IN*) 
9020 IFC(5)-1THENTX( I,2)=PR#( I )*(C(6)/100) 
9030 IFC(5)=2THENTX( I , 2) =TX ( I , 1 ) * ( C( 6 ) / 100 ) 
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9050 PRINT3372, ; USINGP1* 5 TX < 1,2) ; : RETURN 

1 0000 I F C ( 7 ) =0THENT X ( 1 , 3 ) =0 

1 00 1 I EC ( 7 ) ==-- 1 THENPR I NT3436 , ; : Fl.=-7 : GOSUB 1 00 s 

1 0020 I F C ( 7 ) > 0THENT X ( I , 3 ) = PR# ( I ) * < C ( 7 ) / 1 00 ) 

1 0030 PR I N 73436 , ; US I NGP 1 * ; TX ( I , 3 ) " : RETURN 

1 1 000 I F C ( 8 ) =0THENT X ( I , 4 ) =0 

11010 I FC ( S ) =- 1 THENPR I NTa500 , ; : FL=- 

1 1 020 I FC ( 8 ) >0THENTX ( I , 4 ) =C ( 8 ) 

11030 PRINT35001 ;USINGP1*;TX( 1,4) ? : 



TX( I,3)=VAL( IN$) 



7 : GOSUB100 : TX ( I , 4 ) =VAL ( IN* ) 



RETURN 
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1 MO 1979 BY TANDY CORP. 

2 CLS : DK= 1 : 0NERR0RG0T099 : CLOSE : ONERRORGOTO0 : I FDK= 1 THENCLEAR 1 900 : DK= 1 : X7.=4 1 : ME7.=4 

0: GOTO 10 
4 CLEAR0 : X= ( I NT ( ( PEEK ( 1 6544 ) +PEEK ( 1 6545 ) *256 ) / 1 6000 ) -2 ) *60+ 1 5 

6 PRINT"MAX EMP : "; X : CLEAR ( 36*X+256 ) :FORX=l 1T014 :M$=M*+CHR* ( PEEK( 15360+X )): NEXT 
8 ME7.=VAL < M* ) : X 7.=ME7.+ 1 
10 CLS:DEFINTI-N,P 5 W ? X:DEFDBLG:DEFSTRK:PRINTTAB(10) ;" PAYROLL SYSTEM - COMPANY MA 

INTENANCE" 
20 DIMW, WL i WD, WS- FL > B < 8> 2 > ? P < B> 2 ) > D < 8» 2 ) * 6 < X » 8 ) » E7. ( X ) > E* < X » 5 ) » RG < X ) 
25 P 1 *= " tt## » ### , ## ### , #tt# . ## ### , '### . ## ### " : P*= " ### i ### . ## 

27 N*="NONE" :M*=" MANUAL " :F*=" 7. OF FED W/H":G*="7. OF GROSS" : FA$=" FI XED AMOUNT 
30 PRINT" 

> DO YOU WISH TO START A NEW PAYROLL (YES OR NO) : " ; : FL=3 :GOSUB100 
40 I F I N*== " YES " THEN200EL5E I F I N$= " NO " THENGOSUB5 000 : GOTO200 : ELSEGOTO30 

99 DK=0 : RESUMENEXT 

100 IN*=" " :W*==INKEY$:WD=0:WS=WD:WLX=WD: IFFL=WDTHENFL=1 

1 05 PR I NTSTR I NG$ ( ABS ( FL ) , CHR* ( 1 36 ) ) ; STR I NG$ ( ABS ( FL ) » CHR* ( 24 ) ) ; 

1 10 PRINTCHR*< 14) ; :F0RW7.= 1T025:W*=INKEY*: IFW*<>" "THEN1 15ELSENEXT : PRINTCHR* ( 15) ; : 

F0RW7.= 1T025 :W$=INKEY*: IFW*<>" "THEN1 15ELSENEXT :GOTO.t IB 
115 IFW*OCHR*( 13)THEN120ELSEPRINTSTRING$(ABS<FL)-WL7.» " " > ; 
117 PRINTCHR$( 15) ; :W7. ==25 : NEXT: RETURN 

120 PRINTCHR$( 14) ; : I FW*=CHR* ( 24 ) THENPRI NTSTRING* ( WL7.? CHR* (24) ) ; :GOTO100 
125 IFW$OCHR$(S)THEN145ELSEIFWL%=0THEN110ELSEPRINTCHRS(24) ; : IFFL>0THEN135ELSEIF 

PEEK< 16418)=44THEN140 
130 IFPEEK( 16418)=46THENWD=0:GOTO135ELSEIFPEEK( 16418) =430RPEEK ( 16418 ) =45THENWS=0 
1 35 I N*=LEFT$ ( I N* > LEN ( I N$ ) - 1 ) 
1 40 WL7.=WL7.- 1 : POKE 16418)136: GOTO 1 1 

1 45 I FABS ( FL ) =WL7.THEN 1 1 0ELSE I FFL>0THEN I FW$ >--= " " ANDW$<= " Z " THEN 1 70 
150 IFW*=" . "ANDWD=0THENWD=1 : GOTO 170 
155 I FW*= " » " THENPR I NTW$ ; : WL7=WL%+ 1 : GOTO 1 75 
160 IF-"(W*="-"ORW*="+" )ANDWS=0ANDWL7.=0THENWS=1 :GOTO170 
165 IFW*< "0" ORW$> "9" THEN1 10 
170 PRINTW*; : IN$=IN*+W* : WL7.=WL7.+ 1 
1 75 I FABS ( FL ) = 1 THEN 1 1 7ELSE 1 1 

200 CLS:PRINTTAB(20) 5C*:PRINTTAB( 15) "PAYROLL SYSTEM - COMPANY MAINTENANCE" 
2.10 PRINT3264, " <T> AX T A B L E S" : PRINTS392» " <P> A Y R L L I N F R M A 

T I N 
220 PRINT3520, " <S> AVE DATA & END 
230 PRINTa718»"> ENTER A SELECTION : " ; : FL=1 : GOSUB100 

240 I F I N$= " T " THENGOSUB 1 000 : GOTO200 : ELSE I F I N*= " P " THENGOSUB2000 : GOTO200 
250 I F I N*= " S " THENGOSUB6000 : END : ELSEGOTO230 
1000 CLS:PRINTTAB( 10) ; "FEDERAL TAX TABLES 
1010 PRINT3202? "<S> INGLE TAB L E" : PRINTS330? " <M> ARRIED TABL 

E 
1020 PRINT3458) "<R> E T U R N" : PRINT3714, " > ENTER A SELECTION : " ; : FL=1 : GOSUB100 
1030 IFIN$="S"THENM=0:MS$="SINGLE" :ELSEIFIN$==" M" THENM=1 :MS$="MARRIED" :ELSEIFIN$= 

" R"THENRETURNELSEGOTO1020 
1040 PRINTai28»"> IS THIS A NEW TABLE (Y/N) : " ; CHR*( 31 ) ; :FL=1 : GOSUB100 
1 045 I F I N*= " Y " THENNW= 1 ELSENW=0 : I F I N*< > " N " THEN 1 040 
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1 047 I FNW= 1 THENFORX=0TO7 : B ( X i M ) =0 : P ( X , M ) =0 : D ( X , M ) =0 : NEXT 

1 050 PR I NT328 > " - " ; MS* ; " EMPLOYEES " ; CHR* (31) 

IOV-, PRINTS78? "ANNUAL PAYROLL PERIOD TABLE 

1060 P R I NTS 1 97 , " LOWE R L I M I T " TAB ( 20 ) ; " U PPE R L I M I T " T AB ( 36 ) " F I X ED AMOUNT " TAB (51);" % 

OF EXCESS 
1070 PRINTSTRING*(63, "-" ) :FORX=0TO7: IFX=0THENB=0ELSEB=B( X-l » M) 
1080 PRINTX+1 ; " ) " ;TAB(6)USINGP1*;B;B(X*M) ;D(X,M) ;P(X,M) :NEXT 
1 085 I FNW= 1 THEN 1 200 
1090 PRINT3960, CHR*(30) ; : PRI NT3896, CHR* < 30 ) ; "> LINE # TO BE CORRECTED (OR <3> TO 

RETURN ) : " ; = FL= 1 : GOSUB 1 00 
1 100 IFIN*="3"THEN1000ELSEX=VAL( IN*) : IFX< 1ORX>BTHEN1090 
1110 IFX<8THENPRINTa960»CHR*(30) ;"> ENTER UPPER LIMIT <LINE"?X?") : ";:FL=-6:G0S 

UB 1 00ELSE I N*= " 999999 " 
1120 B(X-1?M)=VAL< IN*) : PRINT3X*64+276? ;USINGP* ; B( X -1 , M ) ; 

1130 PRINTa960,CHR*(30) ; "> FIXED AMOUNT : " ; : FL=-7 : GOSUB1 00 : D ( X-- 1 , M ) =VAL ( IN* ) 
1 140 PRINTSX*64+292» ;USINGP*;D( X-l ill); 

1150 PRINTa960»CHR$(3B> 5"> 7. OF EXCESS OVER LOWER LIMIT : " ; : FL=-3 : GOBUB1 00 
1160 P(X~1,M)=VAL(IN*) :PRINT3X*64+311, ; USING "###" ;P(X-1,M) ; 
1170 IFX<BTHENPRINTaX*64+326! ;USINGP* ; B( X-l , M ) ; 
1 1 80 I FRF= 1 THENRETURNELSEGOTO 1 090 
1200 RF=1 :F0RX=1T08:G0SUB1 1 10:NEXT: RF=0 

1210 PRINTa960-CHR*(30) ?"> ARE ALL ENTRIES CORRECT (Y/N) : "; 
1 220 FL= 1 : GOSUB 1 00 : I F I N*= " Y " THENMF ( M ) = 1 : GOTO 1 000ELSE I F I N*= " N " THEN 1 090ELSEGOTO 1 2 1 


2000 CLS:PRINTTAB( 10) » "COMPANY PAYROLL INFORMATION" 
2010 PRINTai28» "1 ) COMPANY NAME 

2) COMPANY FICA PERCENT 

3) EMPLOYEE FICA PERCENT 

4) MAX. FICA LIMIT 

5) ANNUAL EXEMPTION 

6) STATE W/H TYPE (G,F>M OR N) 

7) STATE W/H RATE 

8) CITY W/H <G»M OR N) 

9) DISABILITY (F»M OR N) 

2020 FI=0:GOSUB2200: IFC*=" "THENFI=1 :FORQ=lTOV: GOTO2070 

2030 FI=0:PRINT3832i "> IS ALL INFORMATION CORRECT (Y/N) " ; CHR* (30 ) ; : FL=1 : GOSUB 10 


2040 I F I N*= " Y " THENRETURNELSE I F I N*< > " N " THEN2030 

2050 PRINTa832»CHR*(30) ;"> ENTER LINE # TO BE CORRECTED : ";: FL=-1 : GOSUB 100 
2060 Q=VAL ( I N* ) : I FQ< 1 THEN2050 

2070 PRINT3832 5 CHR*(30) ;"> ENTER LINE #";©.;" : » ; 

2080 I FQ= 1 THENFL=20 : GOSUB 1 00 : C*= I N* : PR I NT3 1 6 1 , C* ; CHR* ( 30 ) ; : G0T02 1 40 
2085 IFS>1ANDO<6THENFL=-7:GOSUB100:C(Q-1 )=VAL( IN*) : PRINT364* (0-1 ) +160> CHR* ( 30) ; I 

N*' :GOTO2140 
2090 I FQ< >6THEN2 1 00ELSE V*= " " : FL= 1 : GOSUB 1 00 : I F I N*= " N " THENC ( 5 ) =0 : V*=N* 
2092 I F I N*= " G " THENC ( 5 ) = 1 : V*=G*ELSE I F I N*= " F " THENC ( 5 ) =2 : V*=F* 
2094 I F I N*= " M " THENC ( 5 ) =3 : V*=M*ELSE I FV*=" " THENPR I NTCHR* ( 8 ) ; : GOTO2090 
2096 PRINTa480iV*;CHR*(30) ; :GOTO2140 
2100 IFS=7AND(C(5)=1ORC(5)=2)THENFL=-7:GOSUB100:C(6)=VAL(IN*) : PRINT3544, C( 6) ; CHR 

$(30) ; :GOTO2140 
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21 10 IFSO8THEN2120ELSEV*=" " :FL=1 : 6OSUB100: IFIN*=" N" THENC< 7 ) =0: V*=N* 

2112 IFIN*="M"THEIMC(7)=-l:V$=M$ELSEIFIN$="G"THENV$=G$:PRINTTAB(34) ? "PERCENT : " ; 
: FL=--7 : GOSUB 1 00 : C ( 7 ) = VAL (IN*): V$=V*+ " = " +ST R* ( C < 7 ) ) 

2113 IFV*=" "THENPRINTCHR*(8) ; :GOTO2110 

2 114 PR I NT3608 ■> V* ' CHR* ( 30 ) ; : G0T02 1 40 

2120 IFQ<>9THEN2140ELSEV*=" H :FL=1 :GOSUB100 : IFIN*="N" THENC ( 8)=0 : V*=N* 

2 1 30 I F I N*-- " M " THENC ( 8 ) =- 1 : V*=M*ELSE I F I N*= " F " THENV*=F A* : PR I NTTAB ( 34 ) 5 F A*+ " : " 5 : F 

L=--7 : GOSUB 1 00 : C ( 8 ) =VAL (IN*): V*=V*+ " = " +STR* ( C < 8 ) ) 
2132 IFV*=" "THENPRINTCHR*(8) 5 :GOTO2120 
2 1 35 PR I NT3672 ■> V* ; CHR* ( 30 ) ; 
2140 IFFI=1THENNEXT 
2150 GOTO2030 

2200 PRINT3161 < C$; :FORX=lTO4:PRINTaX*64+160 ! C(X) ;CHR*(30) ; :NEXT 
22 1 I FC ( 5 ) =0THENV*=N*EL.SE I FC ( 5 ) =3THENV*=M*ELSE I FC ( 5 ) = 1 THENV*=G*ELSE I FC ( 5 ) =2THEN 

V$=F* 
2220 PRINT3480) V*; CHR* (30) ; 
2230 PRINT3544, C(6) ; 

2240 I FC ( 7 ) =0THENV*=N*ELSE I FC ( 7 ) =- 1 THENV*=M*ELSEV*=G*+STR* ( C ( 7 ) ) 
2250 PRINT3608) V*;CHR$<30> ? 

2VA0 I FC ( 8 ) ==0THENV*=N*ELSE I FC ( 8 ) =- 1 THENV*=M*ELSEV*=FA*+ " = " +STR* ( C ( S ) ) 
2270 PRINT3672? V*; CHR* (30) ; : RETURN 

5000 IFDK=1THEN0PEN" I" ■> 1 ■> " PRDATA" ELSEDK=-i :T*="PLAY" :GOSUB5200 
5010 PRINT" 

** READING PAYROLL DATA 
5020 I NPUTttDK , C* , NE , C ( 1 ) , C ( 2 ) > C ( 3 ) , C ( 4 ) , C ( 5 ) , C ( 6 ) , C ( 7 ) , C ( 8 ) 
5030 FORX=0TO1 : INPUT#DK, B ( 0, X ) > B ( 1 » X ) ■> B ( 2» X ) * B ( 3, X ) , B( 4> X ) , B ( 5» X ) , B( 6, X ) » B ( 7> X ) , 

P(0<X) i P( 1 , X ) ,P(2. X)»P(3,X),P(4,X),P(55 X)iP(6 ) X)iP(7,X))D(0)X))D( 1»X) ,D(2, X 

) , D ( 3 , X ) ■> D ( 4 , X ) , I) ( 5 , X ) , D ( 6 , X ) » D ( 7 , X ) : NEXT 
5090 FORX=lTONE 

5100 I NPUTttDK » EX ( X ) , E* ( X , ) , E* ( X » 1 ) > E* ( X » 2 ) » E* ( X , 3 ) , E* ( X » 4 ) , RG ( X ) 
5110 INPUT#DK»G(X»0) < G ( X , 1 ) » G ( X » 2 ) ; G ( X , 3 ) , G ( X , 4 ) , G ( X , 5 ) , G ( X , 6 ) ■> G ( X , 7 ) , G( X > 8 ) 
5 1 20 NEXT : I FDK= 1 THENCLOSE : RETURNELSERETURN 
5200 CLS:PRINT"LOAD DATA TAPE & REWIND 

SET TO "T*:PRINTa320, "PRESS <ENTER> WHEN READY : ";: FL=i : GOSUB 100: RETURN 
6000 K=" " : IFDK=1THEN0PEN"0" , 1 » " PRDATA" ELSEK=" , " :DK=-1 :T*=" RECORD" :GOSUB5200 
6010 D*=" » " :print#DK;C*;D*;ne;k;C( i ) ;k;C(2) ;k;C(3) ;k;C(4) ;K;C(5) ;k;C(6) ;k;C(7) ;K 

■C(8) :FORX=0TO1 

6020 print#dk ! B(0,X) ;k;B(1 5 X) ;k;B(2»X) ;k;b(3> X) ;k;B(4»X) ;k;b<5>X) ;k;B(6)X) ;k;B(7 

, X) ;K;P(0<X) ;K?P( l, X) ;K;P(2>X) ;K;P(3, X) ;K;P(4,X) ;K;P(5,X) -K;P<6>X) ;K;P(7»x> 

;K;D(0, X) ;k;D( 1 » X) ;K;D<2» X) ;K;D<3> X) ;K;D<4> X) ;K;D(5, X) ;K;D(6,X) ;K";D<7» X) :NE 

XT 
6050 FORI = lTONE:PRINT#DK,E'/.(I ) ; D* ; E*( 1 , 0) ; D* ; E* ( 1 , 1 ) ; D* ; E* ( 1 , 2) ; D* ; E* ( 1 , 3 ) ; D* ; E* 

(1,4); D* ; RG ( I ) 
6060 PRINT#DK ? USING" ######. ##D0"+K;G( 1,0) ;G(I ! 1);G(I 5 2);G(I»3);G(I»4);G(I,5);G(I 

, 6 ) ; G ( 1 5 7 ) ; G ( I > 8 ) 
6070 NEXT! : IFDK=1THENRUN" PAYROLL" ELSEPRINT" 

> DO YOU WANT TO MAKE ANOTHER COPY (Y/N) : "; 
6080 FL=1 :GOSUB100: IFIN*=" Y" THEN6000ELSEIFIN*<>" N" THENPRINTCHR* ( 8) ; : GOTO6080ELSE 

END 
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10 'RADIO SHACK TRS-80 TAPE/DISK PAYROLL SYSTEM 

20 ' (C) 1979 BY TANDY CORPORATION - ALL RIGHTS RESERVED 

3 C ! O S E : C L E A R J. : G T 0200 

100 IN*=" " : W$=INKEY*: WD=0:WS=WD:WL'/.=WD: IFFL=WDTHENFL=1 

105 PRINTS"rRING$<ABS(FL) , CHR*( 136) ) ; STRING* ( ABS(FL ) » CHR*<24) ) 5 

1 10 PRINTCHR*< 14) ; :F0RW%=1T025 : W*=INKEY*: IFW*<>" " THEN1 15ELSENEXT : PRINT CHR* ( 15 ) ; : 

FORWV.= 1 T025 :W$=INKEY$: IFW*<>" " THEN1 15ELSENEXT : G0T01 10 
lis iFW*OCHR*< 13)THEN120ELSEPRINTSTRING*(ABS(FL)-WL%, " " ) 5 
117 P R I NT CH R* (15);: W7.-25 : NE X T : RETU RN 

r--'0 PRINT CHR*< 14) ; : IFW*=CHR* ( 24 ) THENPRINTSTRING* ( WL7.. CHR* ( 24 ) ) ; :GOTO100 
1 25 I FW$ < > CHR* ( 8 ) THEN 1 45ELSE I FWL7.=0THEN 1 1 0ELSEPR I NTCHR* ( 24 ) ; : I FFL>0THEN 1 35LLSE I F 

PEEK < 1 64 1 S ) =44THEN 1 40 
1 30 I FPEEK ( 1 64 1 8 ) =46THENWD=0 : GOTO 1 35ELSE I FPEEK ( 1 64 1 8 ) =430RPEEK (16418) =45THENWS=0 
135 I N * = L E F T * ( I N * , L E N ( I N * ) - 1 ) 
1 40 WL "/.= WL%- 1 : POKE 1 64 1 8 , 1 36 : GOTO 1 1 

1 45 I F ABS ( FL ) = WL*/.THEN 1 1 0ELSE I FFD-0THEN I FW* > = " " ANDW* < = " Z " THEN 1 70 
150 I FW*= " . " ANDWD==0THENWD= 1 : GOTO 1 70 
rv=, IFW*=" i "THENPRINTW*; :WL7.=WL7.+ 1 :G0T0175 

1 60 I F ( W*= " " 0RW*= " + " ) ANDWS=0ANDWL7.=0THENWB= 1 : GOTO 1 70 

165 IFW*< " 0"ORW*>" 9" THEN1 10 

170 PRINTW*; : IN*=IN*+W* : WL"/.=WL7.+ 1 

1 7^ I FABS ( FL ) = 1 THEN 1 1 7ELSE 1 1 

200 CLS:PRINT314, "PAYROLL SYSTEM - MASTER MENU" : PRINTSTRING* ( 63, 140 ) 

210 PRINT3200) "<C> M P A N Y INFO MAINTENANCE 

220 PRINTS328* "<E> M P L Y E E INFO MAINTENANCE 

230 PRINTS456* "<P> AYR L. L P R C E S S I N G 

240 PRINT3584, " <T> T A L S & YEAR END 

250 PRINT3712, "<3> END SESSION 

260 PR I NT3832 , STR I NG* ( 63 , " - " ) 

270 PRINT3970 5 "> ENTER A SELECTION : " ; : FL=1 : 6OSUB100 

280 I F I N*= " C " THENRUN " COMA I NT 

290 I F I N*= " E " THENRUN " PRMA I NT 

300 IFIN*=="P" THENRUN" PRPROC 

310 I F I N*= " T " THENRUN " PRTOT 

320 IFIN*O"a"THEN270 
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1 '(C) 1979 BY TANDY CORP. 

2 CLS:DK=1 : 0NERR0RG0T099 : CLOSE :ONERRORGOTO0: IFDK=1THENCLEAR1900: DK=1 :X7.=41 :ME7.=4 

0: GOTO 10 

4 CLEAR0 : X= < I NT ( ( PEEK ( 1 6544 ) +PEEK < 1 6545 ) *256 ) / 1 6000 ) -2 ) *60+ 1 5 

6 PRINT" MAX EMP : " ; X : CLEAR* 36*X+256 ) :FORX=l 1T014 : M*=M*+CHR* ( PEEK ( 15360+X ) ) :NEXT 

5 MEX=VAL ( M* ) : X7.=ME7.+ 1 

10 DEFINTI-N) W-Z» P : DEFDBLG : DEFSTRK 

20 DIMW, WL , WS, WD, FL < B ( B, 2 ) , P ( 8, 2 ) 5 D ( 8, 2 ) , E* ( X , 5 ) , RG ( X ) , G < X , 8 ) » EV. ( X ) 
30 GOSUB5000:PR*=" PAYROLL TOTALS" 
40 P*= " #### " : PI *= " ##### . ## " : P2*= " # , ###### . ## " 
50 P0KE16553, 255 : FORX==0TO8 : READY* ( X ) : NEXT : X=FRE ( X* ) : GOTO200 

60 DAT AGROSS , F I CA , FED W/H ■> STATE W/H , C I TY W/H , D I SAB I L I TY ■> DEDUCT . 1 , DEDUCT . 2 , NET 
PAY 

99 DK=0:RESUMENEXT 

100 IN*==" " :W$=INKEY$:WD=0:WS=WD: WL7.=WD: IFFL=WDTHENFL= 1 

1 05 PR I NTSTR I NG* ( ABS ( FL ) , CHR* ( 1 36 ) ) ; STR I NG* ( ABS ( FL ) , CHR$ ( 24 ) ) ; 

110 PR I NT CHR* ( 14) ; :F0RW7,= 1T025:W*=INKEY*: IFW*<>" " THEN1 15ELSENEXT : PRINTCHR* ( 15) ; : 

FORW7.= l T025 : W$= INKE-IY* : IFW$<> " " THEN1 15ELSENEXT : GOTOl 1 
1 15 IFW$OCHR*( 13)THEN120ELSEPRINTSTRING$(ABS(FL)-WL7.» " " ) ; 
117 PRINTCHR*( 15) ; : W%=25 : NEXT : RETURN 

120 PRINTCHR** 14) ; : IFW$=CHR* ( 24 ) THENPRINTSTRING* ( WL7, CHR* ( 24 ) ) ; :GOTO100 
125 IFW*<>CHR*<8)THEN145ELSEIFWL7.=0THEN1 10ELSEPRINTCHFW ( 24 ) ; : IFFL>0THEN135ELSEIF 

PEEK ( 1 64 1 S ) =44THEN1 40 
1 30 I FPEEK ( 1 64 1 B ) =46THENWD=0 : GOTOl 35ELSE I FPEEK ( 1 64 1 S ) =430RPEEK ( 1 64 1 8 ) =45THENWS=0 
1 35 I N$-LEFT* « I N* , LEN ( I N* ) - 1 ) 
1 40 WL7.=WL7.- 1 : POKE 1 64 18,136: GOTO 1 1 

1 45 I FABS ( FL ) =WL%THEN 1 1 0ELSE I FFL>0THENI FW*>= " " ANDW*<= " Z " THEN 1 70 
150 IFW$=" . "ANDWD==0THENWD==1 : GOTO 170 
155 IFW*=" , "THENPRINTW*; :WL7.=WL7.+ 1 :60T0175 
1 60 I F ( W$= " - " ORW*= " + " ) ANDWS=0ANDWL7.=0THENWS= 1 : GOTO 1 70 
165 IFW*<"0"ORW$>"9"THEN1 10 
1 70 PR I NTW* ; : I N*= I N$+W* s WL"/.=WL"/.+ 1 
1 75 I FABS ( FL ) == 1 THEN 1 1 7ELSE 1 1 

200 CLS : PR I NTTAB ( 1 5 ) ; PR* : PR I NTSTR I NG* < 63 , " == " ) 

210 PRINT3325, "<P> R I N T Y T D P A Y R L L T T A L S 
220 PRINTa453, "<D> I S P L A Y Y T D PAYROLL T T A L S 
230 PRINTaSSl, "<S> AVE DATA & E N D 
240 PRINTa773,"> ENTER A SELECTION : " ; : FL== 1 : GOSUB100 
250 IFIN*="P" THEN 1000 
260 I F I N*= " D " THEN 1 200 
270 I F I N*= " S " THEN6000ELSEGOTO200 
300 FORX=0TOS : T# ( X ) =0 : NEXT : RETURN 
1000 CLS: PR I NTTAB ( 20 ); PR* 
1040 IFPEEK( 14312)>127THENPRINTa3845 "** PRINTER NOT READY ** 

> PRESS <ENTER> TO CONTINUE OR '3' TO EXIT : " ; : FL=1 : GOSUB100 : IFIN*=" 3" THEN 

RETURNELSE1040 
1050 POKE 16425) 1 : GOSUB300 : GOSUB1 1 60 : FORI = l TONE : LPRI NTUSINGP* ; E7. ( I ) ; :LPRINT" " ;E 

* ( I , ) ; TAB ( 27 ) ; US I NGP 1 *+ " " ; G ( I , ) ; G ( I , 8 ) 
1055 T#(0)=T#(0)+G(I,0) :T#C8)=T#(8)+G(I,8) : LPRI NT" 



. 060 
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F'-.RX=1TC)7:L PRINTUSINGP1*+" " ;G< I, X) ; : T# ( X )=T# < X )+G( I , X ) : NEXT :LPRIIMT 
1070 1 PRINTSTRING*(80, "-" ) :GOSUBl 150 : NEXT : LPRINTCHR* ( 12 ) 
10BP L PRINTTAB(25) ; PR* : LPRINTTAB (1 ) STRING* ( 52, "-" ) : LPRINTCHR* ( 1 38) 
1090 FORX=0TO8: LPRINTTAB (10) ;V*(X) ;" " ' STRING* ( 40-LEN < V* ( X ) ), ". " ) USING P:,c* ; l#U> 
1 100 NEX7':LPRINTCHR*( 12) :GOTO1500 

1 V=,a IFPFFKt 16425 ) <56THENRETURNELSELPRINTCHR* ( 12 ) 
1160 L PRINTTAB( 10) ;C*; " "; PR* ."LPRINTCHR* ( 138 ) 
1 170 l>RINT"FMP# NAME" :TAB<28) 5 "GROSS NET PAY" : LPRINTSTRING* ( 80, "-'' ) rLPRIIMT" 

PICA FED W/H STATE W/H CITY W/H DISAB. DEDUCT 1 DEDUCT 2 
1 1R0 I PPINTRTRTNG*(80, "=■■--" ) : LPRINTCHR* ( 138) : RETURN 

1200 CLS:GOSUB1410:CT=1 : GOSUB300 : FORI-1TONE : PRINTUSINGP*+" » ;E7.( I ) ; 
1 "■•05 PR T NTF* ( I , ) ? TAB < 38 ) " US I NGP 1 *+ " " ; G (I , ) 5 G ( 1 , 8 ) 
1--'10 F0RX = 3T07:PRINTUSINGP1*+" " ;G(I, X) ; : T# ( X )=T# ( X ) +G ( I , X) :NEXT 
1215 T# ( ) ==T# ( ) +G (1,0): T# ( 8 ) =T# < 8 ) +G ( 1 , 8 ) : CT= CT+ 1 : PR I NT " 

" :GOSUBl 400: NEXT 
1 220 T FCT> 1 THENGOSUB 1 420 

lv'^0 CI S:PRINTTAB( 10) ; TY* ; PR* : PRINTSTRI NG* ( 63, 140) : PRINT 
1240 FORX=0TO8:PRINTV*(X) ; " "STRING* ( 32~LEN< V* ( X ) ),".") ;USINt.P2* ;T# ( X ) : NEXT: GOTO 

1500 
1400 JFCT<5THENRETURNELSEGOSUB1420 
1410 CT-1 :Ct S:PRINT"EMP# NAME " TAB ( 40 )" GROSS NET PAY / 

FICA FED W/H STATE W/H CITY W/H DISAB. DED 1 DED 2" : PRINTSTRING 

*(63, "=" ) : RETURN 
14---0 PRINT3960- "> PRESS <ENTER> TO CONTINUE : "?: FL=1 : GOSUB1 00 : RETURN 
1500 PRINT3832,"> OK TO RESET ";PR*;" (YES/NO) : " ; :FL==3 :GOSUB100 
1510 I F I N*= " NO " THEN200 
1520 IFIN*<> " YES" THEN1500 
1530 PRINT" 

** RESET I NG TOTALS **" 
1540 FORI==1TONE:FORX==0TO8:G( I , X )=0:NEXTX» I : GOTO200 
5000 IFDK=1THEN0PEN" I " , 1 » " PRDATA" ELSEDK=- 1 : T*=" PLAY" :GOSUB5200 
5010 PRINT" 



6010 
6020 



, 



** READING PAYROLL DATA 
5020 INPUT#DK,C*,NE,C( 1 ) , C( 2) , C< 3) , C< 4 ) , C( 5 ) , C ( 6 ) , C< 7 ) , C(8 ) 
50-^0 FORX=0TO1 : I NPUTttDK, B ( , X ) , B ( 1 , X ) , B ( 2, X ) , B ( 3 , X ) , B ( 4 , X ) , B ( 5 , X ) , B ( 6 , X ) , B ( 7 , X ) 

P(0,X),P(1,X),P(2,X),P(3,X),P(4,X),P(5,X),P(6,X),P(7,X),D(0,X),D(1,X),D(2,X 

),D(3,X),D(4,X),D(5,X),D(6,X),D(7,X):NEXT 

5090 FORX=lTONE 

■=, 1 00 I NPUTttDK , E% ( X ) , E* ( X , ) , E* ( X , 1 ) , E* ( X , 2 ) , E* ( X , 3 ) , E* ( X , 4 ) , RG < X ) 

5110 I NPUTttDK, G(X,0),G(X,1),G(X,2),G(X,3),G(X,4),G(X,5),G<X,6),G(X,7),6(X,8) 

5120 NEXT: IFDK=1THENCL0SE:RETURNELSERETURN 

■=,200 CLS: PRINT"LOAD DATA TAPE & REWIND 

c 3ET T o "T*:PRINT3320, "PRESS <ENTER> WHEN READY : "! :FL=1 : GOSUB100: RETURN 

6000 K=" " : IFDK=1THEN0PEN"0" , 1 , " PRDATA" ELSEK=" , " : DK=-1 : T*=" RECORD" :GOSUB5200 

D *=» , » : pri nt#dk, C* ; D* ; NE ; K ; c ( 1 ) ; K ; C • ( 2 ) ; K ; c ( 3 ) ; K ■ c ( 4 ) ; K ; C ( 5 ) ; K ; c ( 6 ) ; K ; C ( 7 ) ; K 
;C(8) :FORX=0TO1 

print#dk,B(0,X) ;k;B(1,X) ;K;B(2,x) ;k;B(3,X) ;k;b<4,X) ;k;B(5,X) ;K;B(6,X) ;k;b<7 
,x) ;k:P(0,X) ;k?P(1,X) ;k;P(2,X) ;k-P(3,X) ;K;p<4,X) ;k;p<5,X) ;K;p<6,X) ;k;P(7,X) 
; k ; d ( 0, x ) ; k ; d ( l , x ) ; k ; d ( 2, x ) ; k ; d ( 3, x ) ; k ; d ( 4, x ) ; k ; d ( 5 , x ) ; k ; d ( 6, x ) ; k ; d ( 7, x ) : ne 
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XT 
6B50 F0RI = 1T0NE:PRINT#DK»E"/.(I ) ; K ; E$ ( 1 , ) ; D* ; E* ( 1 , 1 ) ; D* ; E* ( 1 , 2 ) ; D* ; E* ( 1 » 3 ) ; D* ; E$ ( 

I i4)s D$ ; RG < I ) 
6060 PR I NTttDK » US I NG "######. ##D0 " +K ; G ( I > ) ; G ( 1 , 1 ) ; 6 ( I ■> 2 ) ; G ( 1 , 3 ) ; 6 ( 1 , 4 ) ; G ( 1 , 5 ) ; 6 < I 

j 6 ) ; G ( 1 5 7 ) ; G ( I » S ) 
6070 NEXTI : IFDK"1THENRUN" PAYROLL" ELSEPRINT" 

> DO YOU WANT TO MAKE ANOTHER COPY CY/N) : " ; 
6080 FL=1 :GOSUB100: IFIN*=" Y" THEN6000ELSEIFIN*<> " N" THENPRI NTCHR* ( S ) ; : GOTO6080ELSE 

END 
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i '(C) 1979 BY TANDY CORP. 

2 CLS:DK=1 : 0NERR0RG0T099: CLOSE : ONERRORGOTO0 : IFDK=1THENCLEAR1900 : DK=1 : X7.=41 :ME7.=4 

: GOTO 1 

4 CI FAR0 : X= ( I NT ( ( PEEK ( 1 6544 ) +PEEK ( 1 6545 ) *256 ) / 1 6000 ) -2 ) *60+l 5 

6 PR INT "MAX EMP : "; X : CLEAR ( 36*X+256 ): FORX=l 1 T014 : M*=M*+CHR* ( PEEK ( 15360+X )): NEX I 

8 ME7=VAL ( M* ) : X 7.=ME7.+ 1 

1 DFF I NT I -N iP.WiX: DEFSTRK : DEFDBLG 

2 c: . DI MW< WS< WL , WD? FL , B ( 8, 2 ) ■> P ( 8, 2 ) < D ( 8, 2 ) > E* ( X , 5 ) , RG ( X ) , G ( X » 8 ) ■> E7. ( X ) 

3 I. .. * = S T R I N G * ( 6 3 ,140): H * == "##.####":G*= "###»###.##" 
40 GOSUB5000 : GOSUB7000 : X=FRE ( X* ) : GOTO500 

99 D K ~ : R E S U M E N E X T 

100 IN*=" " :W*=INKEY*:WD=0:WS=WD:WL7.=WD: IFFL=WDTHENFL=1 

1 C . P R I NTST R I NG* ( ABS < FL ) , CH R$ ( 1 36 ) ) ; ST R I NG* ( ABS ( FL ) » CH R* ( 24 ) ) ; 

1 1 PRI NTCHR* (14);: FORW7.= 1 T025 : W$= I NKEY* : I FW*< > " " THEN1 1 5ELSENEXT : PR I NTCHR* (15);: 

FORW7.= 1 T025 : W*== I NKEY* : I FW*< > " " THEN 1 1 5ELSENEX T : GOTO 1 1 

115 IFW*OCHR*< 13)THEN120ELSEPRINTSTRING*(ABS(FL)-WL7. 5 " " ) ; 

117 PRINTCHR*( 15) ; : W7.=25 : NEXT : RETURN 

1---0 PRINTCHR*(14) ; :IFW*=CHR*(24)THENPRINTSTRING*(WL7.5CHR*(24) ) ; :GOTO100 

125 IFW$OCHR*<8)THEN145ELSEIFWL7.=0THEN1 10ELBEPRINTCHR* ( 24 ) ; : IFFL>0THEN135ELSEIF 

PFFK ( 1 64 1 8 ) =4 4 THEN 1 40 

1 30 I F PEEK ( 1 64 1 8 ) =46THENWD==0 : GOTO 1 35ELSE I F PEEK ( 1 64 1 8 ) =430RPEEK ( 1 64 1 8 ) =45THENWS=0 

135 I N$==LEF T$ ( I N* » LEN ( I N$ ) - 1 ) 

140 WL 7.=WL "A- 1 : POKE 1 64 1 8 , 1 36 : GOTO 1 1 

1 45 I FABS ( FL ) =WL7.THEN 1 1 0ELSE IFFL>0THEN I FW*>= " " ANDW$<= " Z " THEN 1 70 

150 IFW*=" . "ANDWD=0THENWD=1 : GOTO 170 

155 IFW$=" j "THENPRINTW*; : WL7.==WL7.+ 1 : GOTO .175 

160 IF(W*="-"ORW*=" + " )ANDWS=0ANDWL7.=0THENWS=1 :GOTO170 

1 65 I FW$ < " " RW* > " 9 " THEN 1 1 

5 70 PRINTW*; : IN*= I N*+W$ : WL7.=WL7.+ 1 
1 75 I FABS ( FL ) = 1 THEN 1 1 7ELSE 1 1 
200 CLS : PR I NT " 1 ) NAME 

2) BOC SEC # " ;TAB(35) ;"5) PERIODS/YR 

3) MARITAL (M/S) " ; TAB( 35 ) ; " 6 ) HRLY RATE 

4) # EXEMPTIONS " ;TAB ( 35 ) ; " 7 ) ANN SALARY 

210 PRINTL*:PRINTTAB(15);"— YEAR TO DATE TOTALS ~ 
220 PRINT" 8) GROSS" ;TAB(32) ;" 12) CITY W/H 
9) FICA" ;TAB(32) ;"13) DISABILITY 

10) FED W/H" ; TAB (32) ;"14) DEDUCT 1 

11) STATE W/H" ;TAB(32) ;"15) DEDUCT 2 
";TAB(15);" — NET INCOME :KILLoCVI 

14884 RETURN 

500 CLS:PRINTTAB(5) ;C*;" PAYROLL - MASTER FILE MAINT. " : 1=0 

510 PRINTL$:PRINTa264» "<E> D I T EMPLOYEE FILE 

520 PRINTa392' 5 "<S> AVE DATA & END 

540 PRINT3584»"> ENTER A SELECTION : " ; :FL=1 : GOSUB100 



c: c:. 



I F I N$= " E " THENGOSUB600 : GOTO500 
560 IFIN*="S"THEN6000ELSEGOTO500 
600 GOSUB200 
610 PRINT3832, CHR*(31 ) ; " <S>EARCH" , " <N>EXT" , " <P>REVIOUS 



RADIO SHACK TRS-80 PRMAINT PROGRAM 



PAGE 2 



X)=IN* 



I FVAL. ( I N* ) < 1 00THENRG 



:GOSUB100:RG(I) 



<E>DIT" , " <A>DD" , " <D>ELETE 
620 PR1NT3960, CHR$<30) ; "> ENTER A SELECTION (OR '3' TO EXIT) : " ; : FL=1 : GOSUB100 
630 I F I N*= " a " THENRETURNELSE I F I N$== " S " THENTY$== " SEARCH FOR " : GOSUB 1 000 : I F I =0THENPR I N 

T" ** NOT FOUND **" ; : GOSUB9001 : GOTO610: ELSEGOTO610 
640 PT= I : I F I N*= " N " THENZ= 1 : GOSUB 1500: G0T06 1 
650 IFIN*=" P"THENZ=-1 : GOSUB1500: GOTO610 
660 I F I N$== " E " THENTY$= " ED IT": GOSUB2000 : GOT06 1 
670 I F I N*= " A " THENT Y$= " ADD " : 6OSUB3000 : G0T06 1 

6 8 I F I N $ = " D " T H E N T Y $ = " D E L E T E " : G S U B 4 : G T 6 1 E L S E G T 6 1 
800 FORX-0TO4 : PR I N7SJP 1 < X , ) , STR I NG* < ABS ( P 1 < X , 1 ) ) , 32 ) ; 
810 PRINT3P1 (X,0) ,E*( I, X) ; :NEXT 
815 PRINT345? "EMP # : " ;E7.<I); 

820 IFRGd ><100THENPRINTai79, ; USINGH$ ; RG ( I ) ; :PRINTa243» CHR*C30) ; 
825 I FRG ( I ) > 1 00THENPR I NT3243 , ; US I NGG$ ; RG ( I ) 5 : PR I NT3 1 79 , CHR$ ( 30 ) ; 
830 FORQ=0TO7 : I FO<4THENP=400+Q*64ELBEP=433+ ( 0-4 ) *64 
840 PRINT3P? ;USING6*;G< 1,0) ; :NEXT 
850 PRINT3670, USINGG*;G< I , 8) ; : RETURN 

900 ER=0:IFX>4THEN910ELSEPRINT3P1 (X.0))i :FL=P1 (X, 1 ) : GOSUB 100: E$ ( I 
902 IFX==2AND( IN$<> "M" ANDIN$<> " S" )THEN900ELSERETURN 
910 I FX=5 ANDRG ( I ) < 1 00THENPR I NTS 1 79 , CHR* ( 30 ) ; : FL=-7 : GOSUB 1 00 : 

( I ) =VAL ( I N* ) : PR I NTS 1 79 , US I NGH$ ; RG < I ) ; : RETURNELSE9 1 
920 I FX=6AND ( RG « I ) =0ORRG ( I ) >99 . 9999 ) THENPR I NT3243 , CHR* ( 30 ) ; : FL = - 

=VAL ( I N* ) : PR I NT3243 , US I NGG* ; RG < I ) ; : RETURN 
930 I FX <7THENER= 1 : RETURN 

940 IFX<1 lTHENP=400+64*( X~7 ) ELSEP=433+64* ( X-l 1 ) 
950 PRINT3P, ; :FL=-~'10:GOSUB100:G( I; X-7 ) =VAL ( IN* ) 
960 NP#==0 : FORZ== 1 T07 : NP#=NP#+G ( I , Z ) : NEXT : NP#=G ( I 
970 G( I>8)=NP#:PRINTa670,USINGG*;NP#; : RETURN 
1000 PRINT38325 CHR$(31 ) ; :PRINT3S96> "> ";TY$;" EMPLOYEE NO. 
1010 FL=-4 : GOSUB 1 00 : EN-VAL ( I N* ) : I FEN< 1 THEN 1 000 
1 020 I =0 : FORX= 1 TONE : I FE"/. ( X ) =ENTHEN I =X : X=NE 
1030 NEXT: IFI >0THENGOSUBS00 
1040 RETURN 

1490 IF<I=NE0RI = 1 )ANDE"/.< I ) =0THENI = PT : RETURN 
1500 IF I +Z >NEOR I +Z < 1 THENRETURN 
1510 I = I+Z:IFE7.(I )=0THEN1490 
1520 GOSUB800 : RETURN 
2000 PRINT3832.CHR*(31 ) ; : IFI=0THENGOSUB1000 : IFI=0THENPRINT 

OSUB9001 : RETURN 
2010 PRINT3896, "** EDITING EMPLOYEE NO. ";E7.(D;" **" 

2020 PRINT3960, "> ENTER ITEM NO. TO BE CORRECTED OR '3' IF OK : " ; : FL=2:GOSUB100 
2030 IFIN*="a"THENRETURNELBEX=VAL( IN$)-1 : IFX<0ORX> 14THEN2020 
2040 GOSUB900 : GOTO2020 
3000 K7.=0: IFNE+K=METHEN3005ELSEIFD=0THENPRINT" ** FILE FULL **' 

URN 
3002 F0RX=1T0NE : I FE% ( X ) =0THENK7.=X : X=NE : NEXTELSENEXT 
3005 GOSUB200:GOSUB1000: IFI <>0THENPRINTa960, "** EMPLOYEE NO. " ;E"/.( I ) 

ISTS **" ; :GOSUB800:GOSUB9001 : RETURN 
3007 IFK7.=0THENNE=NE+1 : I=NEELSED=D-1 : I=K7. 
301 E7. ( I ) =EN : F0RX=0T01 4 : GOSUB900 : NEXT 



:PRINTaP,USINGG*;G( I, X- 
0>-NP# 



') 



** NOT FOUND **" ; :G 



:GOSUB9001 :RET 



ALREADY EX 



RADIO SHACK TRS-80 PRMAINT PROGRAM PAGE 3 

3020 PRINTa960»"> ARE ALL ENTRIES CORRECT (Y/N) : " ; :FL=1 : GOSUB100 

3030 I F I N*= " Y " THENRETURNELSE I F I N*< > " N " THEN3020ELSEGOSUB2020 : RETURN 

4000 I F I -0THEN6OSUB 1 000ELSE I FE7. ( I ) =0THENRETURN 

4010 PRINT3960< "> OK TO DELETE (YES/NO) : " ; CHR* ( 30 ) 5 :FL=3 :GOSUB100 

4020 I F I N$= " NO " THENPR I NT " ** DELET I ON ABORTED ** " ; : GOSUB900 1 : RETURN 

4030 I F I N* < > " YES " THEN40 1 

4040 PR I NTS 1 8 , " ** DELETED ** " ; CHR* ( 30 ) ; : D=D+ 1 : E7. ( I ) =0 : RETURN 

5000 IFDK=1THEN0PEN" I "-h " PRDATA" ELSEDK=-1 :T*=" PLAY" : GOSUB5200 

5010 PRINT" 

** READING PAYROLL DATA 
5070 T NPUTttDK > C* * NE » C ( 1 ) » C < 2 ) » C < 3 ) » C ( 4 ) ■> C ( 5 ) » C < 6 ) » C ( 7 ) i C ( 8 ) 
5030 FORX=0Tf>i : INPUT#DK ! B(0 ! X)5B(1,X),B(2 J X)«B(3 ) X) ,B(4,X) ,B<5, X ) « B<6, X ) , B ( 7, X ) » 

P(0» X ) , P( 1 » X ) » P(2< X).P(3)X))P(4)X))P(5.X)5P(6iX)) P(7, X ) , D<0» X ) , D( 1 ■> X ) )D(2, X 

) ,D(3» X) ,D(4i X) )D(5i X) »D<6» X) »D<7» X) :NEXT 
5090 FORX-1TONE 

5 1 00 I NPUT#DK , E7. ( X ) , E* < X , ) , E* < X » 1 ) , E* ( X , 2 ) , E* ( X , 3 ) , E$ ( X , 4 ) , RG ( X ) 
5110 INPUT#DK«G<X<0) ■> G ( X i 1 ) ■> G< X i 2) ■> G ( X , 3 ) ? G( X » 4 ) » G ( X i 5 ) » G ( X » 6 ) » G( X i 7 ) » G< X t 8 ) 
S 1 20 NEXT : I FDK= 1 THENCLOSE : RETURNELSERETURN 
■=,200 CLS: PR I NT "LOAD DATA TAPE & REWIND 

SFT TO "T*:PRINTa320 ? "PRESS <ENTER> WHEN READY : " ; :FL-1 : GOSUB100: RETU! N 
6000 K=" " = IFDK=1THEN0PEN"0" , 1 , " PRDATA" ELSEK=" . " :DK=-1 :T*=" RECORD" =6OSUB5200 
6010 D*="> " :PRINT#DK»C*;D*;NE~D;K;C<1 > ;K;C(2> ;K;CC3) ;K;C<4> ;K;C<5) ;K;C<6> ;K;C< 7) 

;K?C(8):FORX=0TOi . 

60---'0 PRI NT#DK< B ( 0, X ) ; K ; B ( 1 , X ) ; K ; B ( 2, X ) ; K ; B ( 3, X ) ; K ; B ( 4 , X ) ; K ; B ( 5 , X ) ; K ; B ( 6, X ) ; K ; B ( / 

,x);K!P(0»X);k;P(1>X);k;p<2»X);k?p<3,X)?k;P(4.x);K5P(5,x>?k;P(6,X);k_;p<7 ) x) 

;K;D(0»X> ;K;D< l> X) ;K;D(2»X) ;K;D<3*X> ;K;D<4,X> ;K;D<5» X) ;K;D(6 ? X> ;K;D( /,X> :NE 

XT 
6045 FORI = l TONE : I FE7. ( I ) =0THEN6070 
6050 PRINT#DK,E7.(I ) ;D* ; E*< 1 , ) ; D* ;E* ( I > 1 ) ; D* ; E* ( I » 2 ) ; D* ; E$ ( 1 , 3 ) ; D* ; E* ( 1 , 4 ) ; D$ s RG 

(I) 
6060 PR I NTttDK ^USING "######. ##D0"+K5G( 1 * ) ? G ( I ■> 1 ) 5 G ( I » 2 ) ; G( 1 5 3 ) ;G( I ■> 4 ) ; G( I > 5 ) ; G( I 

,6);G(I»7);G<I>8> 
6070 NEXTI : IFDK=1THENRUN" PAYROLL" ELSEPRINT" 

> DO YOU WANT TO MAKE ANOTHER COPY (Y/N) : "; 
6080 FL=1 :GOSUB100: IFIN*= u Y" THEN6000ELSEIFIN*<> " N" THENPRINTCHR* < 8) 5 : GOTO6080ELSE 

END 
7000 POKE16553»255:FORX=0TO4:READP1 ( X» ) , PI ( X , 1 ) : NEXT: RETURN 
7010 DATA18»20>82» 1 1 » 146, l,210>-2) 115,-3 
9001 FORX=1TO2000:NEXT: RETURN 



Important Information for Cassette Users 

Free Modification for LEVEL II Units 

A modification that helps cassette loads in LEVEL II computers is available 
free to TRS-80 LEVEL II owners. This modification makes the volume 
setting less critical so that variations in different tapes usually will not 
require volume readjustments. 

Some of the more recent LEVEL II Keyboard units have had this modifi- 
cation factory-installed. To see if the modification has been included in your 
computer, look at the catalog number on the bottom of the keyboard case. 
The modification has been made if the number ends in -1 . For example, if 
the number is 26-1004-1, the modification has already been installed; if the 
number is 26-1004, the modification has not been installed. 

If the number does not end in -1 and you have not already had the cassette 
modification installed by Radio Shack, you may arrange for installation at 
your local Radio Shack store. 

Using Your Cassette Deck 

Many factors affect the performance of a cassette system. The most signifi- 
cant one is volume. Too low a volume may cause some of the information to 
be missed. Too high a volume may cause distortion and result in the transfer 
of background noise as valid information. 

Three different cassette models have been supplied with the TRS-80 system 
- the CTR-40, CTR-41 and CTR-80. Each model has its own loading charac- 
teristics. The table below gives suggested volume ranges for each of the CTR 
models. Figures are for systems without the CLOAD modification. 

Notice that volume ranges for LEVEL I and LEVEL II are different. This is 
because the LEVEL II data transfer rate is faster (500 baud vs. 250 baud). 
Also, notice that pre-recorded Radio Shack programs need a slightly higher 
volume setting than that required by your own CSAVEd tapes. The pre- 
recorded tapes are produced with high-speed audio equipment at a slightly 
lower level than the CSAVE process provides. 



RECORDER 
MODEL 


USER-GENERATED TAPES 


PRE-RECORDED RADIO SHACK TAPES 


LEVEL I 


LEVEL II 


LEVEL I 


LEVEL II 


CTR-40 


YELLOW LINE 


RED LINE 


YELLOW LINE 


RED LINE 


CTR-41 


6 -8 


4-6 


6% - 8% 


5-7 


CTR-80 


4% - 6 1 / 2 


3-5 


5V 2 - Tk 


Tk - 5 



Recommended Volume Settings for RADIO SHACK Cassette Decks 



(With CTR-40 and CTR 80, to increase volume, turn the control to the left. 
With CTR-41 , turn control to the right.) 



When information is being loaded from the cassette tape, two asterisks will 
appear on the screen. The one on the right will flash on or off each time a 
new line of data or program is read in. If the asterisks do not appear, or the 
one on the right does not flash, then the volume setting is probably too low. 
If the asterisks appear but one is not flashing, try increasing the volume 
setting. Use the reset button to stop the cassette and return control to you if 
loading problems occur. 

Radio Shack programs are recorded at least twice on each tape (usually once 
on each side). You should do the same when you record programs on tape. 
This will give you a back-up if one does not load properly or if it becomes 
damaged. 

Important Note: The CTR-41 requires that you keep the supplied "dummy 
plug" in the MIC jack at all times. However, the CTR-40 and the CTR-80 
should never be used with the "dummy plug." 

LEVEL I 

Sometimes you will get an error message during an attempted CLOAD. This 
means that some information was lost or garbled. Adjust the volume level 
slightly and try again. 

LEVEL II 

In case of an error message, proceed as above. In LEVEL II, there is also a 
rare case in which the program has not loaded correctly even though no error 
is generated. So, after CLOADing a program, be sure to LIST it. If some data 
was garbled, then at some point in the listing, the display will be filled with 
meaningless words and characters. Adjust the volume and try again. 

Hints and Tips 

Computer tapes should be stored in a relatively dust-free area (a cassette case 
is recommended) and protected from high temperatures. Magnetic and 
electrical fields may alter recorded information, so avoid them (i.e. house- 
hold appliances, power sources such as transformers and television sets, etc.). 

The cassette deck supplied with the TRS-80 is very compatible with the 
system and will perform its duties with great success. To keep the cassette 
deck in top condition and thus minimize your problems, you sould periodi- 
cally perform some routine maintenance on it. Dirty heads can cause as 
much as a 50% loss in volume. Also, heads become magnetized with use and 
may cause distortion. We recommend that you clean the head, capstan and 
pinch roller after every four hours of operation. Heads on new recorders 
should always be cleaned before use. 

Note: Cassette cleaning and demagnetizing accessories are available from 
your local Radio Shack store. 
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IMPORTANT NOTICE 

ALL RADIO SHACK COMPUTER PROGRAMS ARH DISTRIBUTED ON AN 
"AS IS" BASIS WITHOUT WARRANTY. 

Radio Shack shall have no liability or responsibility to customer or any other 
person or entity with respect to any liability, loss or damage caused or alleged to 
be caused directly or indirectly by computer equipment or programs sold by 
Radio Shack, including but not limited to any interruption of service, loss of 
business or anticipatory profits or consequential damages resulting from the use 
or operation of such computer or computer programs. 

NOTE: Good data processing procedure dictates that the user test the program, 
run and test sample sets of data, and run the system in parallel with the 
system previously in use for a period of time adequate to insure that 
results of operation of the computer or program are satisfactory. 
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